系统初始化
第一步测试服务器连接 | 第二步创建数据库 | 第三步创建数据表 | 第四步完成 | |
Index.html代码
#main {
margin: auto;
width: 800px;
}
#step1txt {
color: #F00;
}
#step2txt {
color: #CCC;
}
#step3txt {
color: #CCC;
}
#step4txt {
color: #CCC;
}
function showtable(str,str1)
{
strtxt=str+"txt";
str1txt=str1+"txt";
document.getElementById(str).style.display="none";
document.getElementById(str1).style.display="";
document.getElementById(strtxt).style.color="#060";
document.getElementById(str1txt).style.color="#f00";
}
function showHint(str)
{
var xmlhttp;
str="svraddr="+document.getElementById("svraddr").value+"&svrusr="+document.getElementB yId("svrusr").value+"&svrpsw="+document.getElementById("svrpsw").value;
if (document.getElementById("svraddr").value=="" ||
document.getElementById("svrusr").value=="")
{
document.getElementById("step1intxt").innerHTML="输入不完整,请检查!";
return;
}
if (window.XMLHttpRequest)
{// code for IE7+, Firefox, Chrome, Opera, Safari
xmlhttp=new XMLHttpRequest();
}
else
{// code for IE6, IE5
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
xmlhttp.onreadystatechange=function()
{
if (xmlhttp.readyState==4 && xmlhttp.status==200)
{
document.getElementById("step1intxt").innerHTML=xmlhttp.responseText;
}
else
{
document.getElementById("step1intxt").innerHTML="服务器连接中……";
}
}
xmlhttp.open("GET","connectsvr.asp?action=testsvr&"+str,true);
xmlhttp.send();
}
function showHint1(str)
{
var xmlhttp;
str="svraddr="+document.getElementById("svraddr").value+"&svrusr="+document.getElementB yId("svrusr").value+"&svrpsw="+document.getElementById("svrpsw").value+"&dbname="+doc ument.getElementById("dbname").value;
if (document.getElementById("svraddr").value=="" || document.getElementById("svrusr").value=="" || document.getElementById("dbname").value=="")
{
document.getElementById("step2intxt").innerHTML="输入不完整,请检查!";
return;
}
if (window.XMLHttpRequest)
{// code for IE7+, Firefox, Chrome, Opera, Safari
xmlhttp=new XMLHttpRequest();
}
else
{// code for IE6, IE5
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
xmlhttp.onreadystatechange=function()
{
if (xmlhttp.readyState==4 && xmlhttp.status==200)
{
document.getElementById("step2intxt").innerHTML=xmlhttp.responseText;
}
else
{
document.getElementById("step2intxt").innerHTML="数据库连接中……";
}
}
xmlhttp.open("GET","connectsvr.asp?action=testdb&"+str,true);
xmlhttp.send();
}
function showHint2(str)
{
var xmlhttp;
str="svraddr="+document.getElementById("svraddr").value+"&svrusr="+document.getElementB yId("svrusr").value+"&svrpsw="+document.getElementById("svrpsw").value+"&dbname="+doc ument.getElementById("dbname").value;
if (document.getElementById("svraddr").value=="" || document.getElementById("svrusr").value=="" || document.getElementById("dbname").value=="")
{
document.getElementById("step2intxt").innerHTML="输入不完整,请检查!";
return;
}
if (window.XMLHttpRequest)
{// code for IE7+, Firefox, Chrome, Opera, Safari
xmlhttp=new XMLHttpRequest();
}
else
{// code for IE6, IE5
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.onreadystatechange=function()
{
if (xmlhttp.readyState==4 && xmlhttp.status==200)
{
document.getElementById("step2intxt").innerHTML=xmlhttp.responseText;
}
else
{
document.getElementById("step2intxt").innerHTML="数据库创建中……";
}
}
xmlhttp.open("GET","connectsvr.asp?action=crtdb&"+str,true);
xmlhttp.send();
}
function showHint3()
{
var xmlhttp;
str="svraddr="+document.getElementById("svraddr").value+"&svrusr="+document.getElementB yId("svrusr").value+"&svrpsw="+document.getElementById("svrpsw").value+"&dbname="+doc ument.getElementById("dbname").value;
if (document.getElementById("svraddr").value=="" || document.getElementById("svrusr").value=="" || document.getElementById("dbname").value=="")
{
document.getElementById("step3intxt").innerHTML="输入不完整,请检查!";
return;
}
if (window.XMLHttpRequest)
{// code for IE7+, Firefox, Chrome, Opera, Safari
xmlhttp=new XMLHttpRequest();
}
else
{// code for IE6, IE5
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
xmlhttp.onreadystatechange=function()
{
if (xmlhttp.readyState==4 && xmlhttp.status==200)
{
document.getElementById("step3intxt").innerHTML=xmlhttp.responseText;
else
{
document.getElementById("step3intxt").innerHTML="数据表创建中……";
}
}
xmlhttp.open("GET","connectsvr.asp?action=crttb&"+str,true);
xmlhttp.send();
}
第一步测试服务器连接 | 第二步创建数据库 | 第三步创建数据表 | 第四步完成 | |
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
%>