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

Connectsvr.asp代码

<%@LANGUAGE=\<%

if request.QueryString(\

On Error Resume Next

set adocon=server.createobject(\adocon.Open\

Server};Server=\WD=\If Err.Number <> 0 Then Response.Clear

response.write\发生错误:\else

response.write\恭喜你，服务器连接成功！\adocon.close

set adocon=nothing end if

elseif request.QueryString(\

On Error Resume Next

set adocon=server.createobject(\adocon.Open\

Server};Server=\WD=\If Err.Number <> 0 Then Response.Clear

response.write\发生错误:\else

response.write\恭喜你，数据库连接成功！\adocon.close

set adocon=nothing end if

elseif request.QueryString(\

On Error Resume Next

set adocon=server.createobject(\adocon.Open\

Server};Server=\

WD=\

adocon.Execute \TABASE \If Err.Number <> 0 Then Response.Clear

response.write\发生错误:\else

'生成连接文件

response.write\恭喜你，数据库\创建成功！\adocon.close

set adocon=nothing end if

elseif request.QueryString(\On Error Resume Next

set adocon=server.createobject(\adocon.Open\

Server};Server=\WD=\

startfile=request.QueryString(\原始文件列表

startsfilelist=request.QueryString(\原始文件记录 finishedfile=request.QueryString(\成品文件

finishedfilelist=request.QueryString(\成品列表 sourcefile=request.QueryString(\资源文件

sourcefilelist=request.QueryString(\资源文列表 segmentfile=request.QueryString(\资源片段文件

segmentfilelist=request.QueryString(\资源片段列表

sql=\\\\\\\\

\\\

set rs=server.createobject(\ rs.open sql,adocon,3,3

response.write \表\创建成功
\

sql=\\\\\\\\

\\

\\\\\\\\\\

\\\

\\

set rs=server.createobject(\ rs.open sql,adocon,3,3

response.write \表\创建成功
\

sql=\\\\\

\\\\\\

\\