搜档网
当前位置:搜档网 › HTML表单拆分及ASP+AJAX异步提交表单

HTML表单拆分及ASP+AJAX异步提交表单

HTML表单拆分及ASP+AJAX异步提交表单
HTML表单拆分及ASP+AJAX异步提交表单

Index.html代码

系统初始化

系统初始化

第一步测试服务器连接第二步创建数据库第三步创建数据表第四步完成
 

服务器地址:

 
用户:

 
密码:

 
 

 
 

Connectsvr.asp代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%

if request.QueryString("action")="testsvr" then

On Error Resume Next

set adocon=server.createobject("adodb.connection")

adocon.Open"Driver={SQL

Server};Server="&request.QueryString("svraddr")&";UID="&request.QueryString("svrusr")&";P WD="&request.QueryString("svrpsw")&""

If Err.Number <> 0 Then

Response.Clear

response.write"发生错误:"&Err.Description

else

response.write"恭喜你,服务器连接成功!"

adocon.close

set adocon=nothing

end if

elseif request.QueryString("action")="testdb" then

On Error Resume Next

set adocon=server.createobject("adodb.connection")

adocon.Open"Driver={SQL

Server};Server="&request.QueryString("svraddr")&";UID="&request.QueryString("svrusr")&";P WD="&request.QueryString("svrpsw")&";database="&request.QueryString("dbname")&""

If Err.Number <> 0 Then

Response.Clear

response.write"发生错误:"&Err.Description

else

response.write"恭喜你,数据库连接成功!"

adocon.close

set adocon=nothing

end if

elseif request.QueryString("action")="crtdb" then

On Error Resume Next

set adocon=server.createobject("adodb.connection")

adocon.Open"Driver={SQL

Server};Server="&request.QueryString("svraddr")&";UID="&request.QueryString("svrusr")&";P

WD="&request.QueryString("svrpsw")&""

adocon.Execute "CREATE DA TABASE " & request.QueryString("dbname")

If Err.Number <> 0 Then

Response.Clear

response.write"发生错误:"&Err.Description

else

'生成连接文件

response.write"恭喜你,数据库"&request.QueryString("dbname")&"创建成功!"

adocon.close

set adocon=nothing

end if

elseif request.QueryString("action")="crttb" then

On Error Resume Next

set adocon=server.createobject("adodb.connection")

adocon.Open"Driver={SQL

Server};Server="&request.QueryString("svraddr")&";UID="&request.QueryString("svrusr")&";P WD="&request.QueryString("svrpsw")&";database="&request.QueryString("dbname")&""

startfile=request.QueryString("dbname")&"_originalfile"'原始文件列表

startsfilelist=request.QueryString("dbname")&"_originalfileRecord"'原始文件记录finishedfile=request.QueryString("dbname")&"_finishedfile"'成品文件

finishedfilelist=request.QueryString("dbname")&"_finishedfilelist"'成品列表

sourcefile=request.QueryString("dbname")&"_sourcefile"'资源文件

sourcefilelist=request.QueryString("dbname")&"_sourcefilelist"'资源文列表

segmentfile=request.QueryString("dbname")&"_segmentfile"'资源片段文件

segmentfilelist=request.QueryString("dbname")&"_segmentfilelist"'资源片段列表

sql="create table "&startfile&"("&_

"id int identity(1,1) not null,"&_

"fname char(50) null,"&_

"uptime datetime null,"&_

"starttime datetime null,"&_

"endtime datetime null,"&_

"num int default 0,"&_

"mdflog text,"&_

"TeacherName char(50),"&_

"StudentName text"&_

")"

set rs=server.createobject("adodb.recordset")

rs.open sql,adocon,3,3

response.write "表"&startfile&"创建成功
"

sql="create table "&startsfilelist&"("&_

"id int identity(1,1) not null,"&_

"fname char(50) null,"&_

"fnamenum int default 0,"&_

"uptime datetime null,"&_

"SoftVersion char(10) null,"&_

"DeviceNum char(50) null,"&_

"SerialNum char(50) null,"&_ "DrivingSchoolName char(50) null,"&_

"SQCX char(10) null,"&_

"LicensePlateNum char(50) null,"&_ "LicenseFrameNum char(50) null,"&_ "TeacherName char(50),"&_

"StudentName char(50),"&_

"IdCard char(50) null,"&_

"IdCardType char(10) null,"&_

"SubjectName char(50) null,"&_

"Picture text,"&_

"Picture2 text,"&_

"Picture3 text,"&_

"StartTime datetime null,"&_

"EndTime datetime null,"&_

"GpsPostion text,"&_

"Distance numeric default 0"&_

")"

set rs=server.createobject("adodb.recordset")

rs.open sql,adocon,3,3

response.write "表"&startsfilelist&"创建成功
"

sql="create table "&finishedfile&"("&_

"id int identity(1,1) not null,"&_

"fname char(50) null,"&_

"originalfile char(50) null,"&_

"num int default 0,"&_

"TeacherName char(50),"&_

"StudentName char(50),"&_

"StartTime datetime null,"&_

"EndTime datetime null,"&_

"segmentfile char(50) null,"&_

"mdflog text,"&_

"mdflasttime datetime null"&_

")"

set rs=server.createobject("adodb.recordset")

rs.open sql,adocon,3,3

response.write "表"&finishedfile&"创建成功
"

sql="create table "&finishedfilelist&"("&_

"id int identity(1,1) not null,"&_

"fname char(50) null,"&_

"fnamenum int default 0,"&_

"uptime datetime null,"&_

"SoftVersion char(10) null,"&_

"DeviceNum char(50) null,"&_

"SerialNum char(50) null,"&_ "DrivingSchoolName char(50) null,"&_

"SQCX char(10) null,"&_

"LicensePlateNum char(50) null,"&_ "LicenseFrameNum char(50) null,"&_ "TeacherName char(50),"&_

"StudentName char(50),"&_

"IdCard char(50) null,"&_

"IdCardType char(10) null,"&_

"SubjectName char(50) null,"&_

"Picture text,"&_

"Picture2 text,"&_

"Picture3 text,"&_

"StartTime datetime null,"&_

"EndTime datetime null,"&_

"GpsPostion text,"&_

"Distance numeric default 0"&_

")"

set rs=server.createobject("adodb.recordset")

rs.open sql,adocon,3,3

response.write "表"&finishedfilelist&"创建成功
"

sql="create table "&sourcefile&"("&_

"id int identity(1,1) not null,"&_

"fname char(50) null,"&_

"num int default 0,"&_

"TeacherName char(50),"&_

"StudentName char(50),"&_

"StartTime datetime null,"&_

"EndTime datetime null,"&_

"usedfilelist text,"&_

"usedlog text,"&_

"lastusedtime datetime null"&_

")"

set rs=server.createobject("adodb.recordset")

rs.open sql,adocon,3,3

response.write "表"&sourcefile&"创建成功
"

sql="create table "&sourcefilelist&"("&_

"id int identity(1,1) not null,"&_

"fname char(50) null,"&_

"fnamenum int default 0,"&_

"uptime datetime null,"&_

"lastusedtime datetime null,"&_

"SoftVersion char(10) null,"&_

"DeviceNum char(50) null,"&_

"SerialNum char(50) null,"&_ "DrivingSchoolName char(50) null,"&_

"SQCX char(10) null,"&_

"LicensePlateNum char(50) null,"&_ "LicenseFrameNum char(50) null,"&_ "TeacherName char(50),"&_

"StudentName char(50),"&_

"IdCard char(50) null,"&_

"IdCardType char(10) null,"&_

"SubjectName char(50) null,"&_

"Picture text,"&_

"Picture2 text,"&_

"Picture3 text,"&_

"StartTime datetime null,"&_

"EndTime datetime null,"&_

"GpsPostion text,"&_

"Distance numeric default 0"&_

")"

set rs=server.createobject("adodb.recordset")

rs.open sql,adocon,3,3

response.write "表"&sourcefilelist&"创建成功
"

sql="create table "&segmentfile&"("&_

"id int identity(1,1) not null,"&_

"fname char(50) null,"&_

"originalfile char(50) null,"&_

"num int default 0,"&_

"numlist char(500) null,"&_

"TeacherName char(50),"&_

"StudentName char(50),"&_

"StartTime datetime null,"&_

"EndTime datetime null,"&_

"usedfilelist text,"&_

"usedlog text,"&_

"lastusedtime datetime null"&_

")"

set rs=server.createobject("adodb.recordset")

rs.open sql,adocon,3,3

response.write "表"&segmentfile&"创建成功
"

sql="create table "&segmentfilelist&"("&_

"id int identity(1,1) not null,"&_

"fname char(50) null,"&_

"sourcefilenum int default 0,"&_ "segmentfilenum int default 0,"&_

"uptime datetime null,"&_

"lastusedtime datetime null,"&_

"SoftVersion char(10) null,"&_

"DeviceNum char(50) null,"&_

"SerialNum char(50) null,"&_ "DrivingSchoolName char(50) null,"&_

"SQCX char(10) null,"&_

"LicensePlateNum char(50) null,"&_ "LicenseFrameNum char(50) null,"&_ "TeacherName char(50),"&_

"StudentName char(50),"&_

"IdCard char(50) null,"&_

"IdCardType char(10) null,"&_

"SubjectName char(50) null,"&_

"Picture text,"&_

"Picture2 text,"&_

"Picture3 text,"&_

"StartTime datetime null,"&_

"EndTime datetime null,"&_

"GpsPostion text,"&_

"Distance numeric default 0"&_

")"

set rs=server.createobject("adodb.recordset")

rs.open sql,adocon,3,3

response.write "表"&segmentfilelist&"创建成功
"

If Err.Number <> 0 Then

Response.Clear

response.write"发生错误:"&Err.Description end if

rs.close

set rs=nothing

adocon.close

set adocon=nothing

else

response.write"参数传递错误"

end if

%>

相关主题