📄 upload.asp
字号:
<!--include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Upload File</title>
<link rel="stylesheet" type="text/css" href="img/css.css">
</head>
<body>
<%
action=request.QueryString("action")
if action="save" then
fld=request("excel_fld")
Dim cn,oConn,connstr
Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0 "
cn.ConnectionString = "Data Source=" & Server.MapPath(fld) & ";" & _
"Extended Properties=Excel 8.0;"
cn.Open
set rsSchema=cn.openSchema(20)
rsSchema.movefirst
'Do Until rsSchema.EOF
if rsSchema("TABLE_TYPE")="TABLE" then
s1=rsSchema("TABLE_NAME")
rsSchema.movenext
s2=rsSchema("TABLE_NAME")
end if
s1="["&s1&"]"
s2="["&s2&"]"
'Loop
set rs=server.CreateObject("ADODB.Recordset")
rs.Open "select * from "&s1,cn,1,1
response.Write("<center>")
response.Write("<table align=top width=1000 height=600 bgcolor=#5450F4><tr><td>")
response.write("<br>")
response.Write("<table align=center width=300 background='img/main1.jpg' border=1 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td>")
response.Write("<tr><td colspan=2>THE RESULT：</td></tr>")
response.Write("<tr><td>")
response.Write(S1&":<br></td><td>"&S2&":<br></td><tr>")
response.Write("<tr><td><font color=#990099 size=3>")
for j=0 to rs.Fields.Count-1
col=rs(j).Name
set rsRead=server.CreateObject("ADODB.Recordset")
rsRead.Open "select "&col&" from "&s1&" where not exists (select * from "&s2&" where "&s1&"."&col&"="&s2&"."&col&")",cn,1,1
'and "&s1&".chn="&s2&".chn and "&s1&".english="&s2&".english
do while not rsRead.eof
for i=0 to rsRead.Fields.Count-1
response.Write rsRead(i)
response.Write("<br>")
next
' response.Write rsRead("eng")
rsRead.movenext
loop
next
rs.close
response.Write("</font></td><td><font color=#990099 size=3>")
set rs=server.CreateObject("ADODB.Recordset")
rs.open "select * from "&s2,cn,1,1
for j=0 to rs.Fields.Count-1
col2=rs(j).Name
set r=server.CreateObject("ADODB.Recordset")
r.open "select "&col2&" from "&s2&" where not exists (select * from "&s1&" where "&s1&"."&col2&"="&s2&"."&col2&")",cn,1,1
'and "&s1&".chn="&s2&".chn and "&s1&".english= "&s2&".english
do while not r.eof
for i=0 to r.Fields.Count-1
response.Write r(i)
response.Write("<br>")
next
r.movenext
loop
next
rs.close
response.Write("</font></td></tr>")
response.Write("<tr><td><td colspan=2 align=right>")
response.Write("<a target='_self' href='upload.asp'>DO AGAIN</a>")
response.Write("</td></tr></table>")
response.Write("</center>")
response.Write("</td></tr></table>")
set r=nothing
set rsRead=nothing
else
%>
<p> </p>
<table width="597" border="0" align="center" cellpadding="0" cellspacing="0">
<form method="post" name="form" action="upload.asp?action=save">
<tr>
<td width="706" height="98" colspan="2" valign="bottom" background="img/1.jpg"> <div align="left"><font color="#FF0000"> file:</font>
<input type="text" name="excel_fld" size="30" class=input>
<input name="B" value="DO....." type="submit">
</div></td>
</tr>
<tr>
<td height="65" colspan="2" background="img/3.jpg"><IFRAME src="upfile.asp" frameBorder=0 width="100%" height="100%" scrolling=no height=21></IFRAME></td>
</tr>
<tr>
<td height="65" colspan="2"><img src="img/3.jpg" width="597" height="147"></td>
</tr>
</form>
</table>
<%end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -