<% @ LANGUAGE="VBSCRIPT" CODEPAGE="936" % & gt;
<% Server. The ScriptTimeOut=120% & gt;
<meta HTTP - equiv="content-type" Content="text/HTML. Charset=gb2312 "& gt;
<% if InStr (lcase (Request. ServerVariables (" http_user_agent ")), "mobile") & gt; 0 or InStr (lcase (Request. ServerVariables (" http_user_agent ")), "phone") & gt; 0 then % & gt;
<meta name="viewport" content="width=device - width, initial - scale=1.0, the maximum - scale=1.0, user - scalable=0"/& gt;
<% end if % & gt;
<style type="text/CSS" & gt;
Body {
Background - image: url (images/chaxiu. JPG);
}
- & gt;
</style>
Window. The opener=null;
Window. The close ();
}
The function useful () {
If (document. Form2. Dangqianye value!="1")
{
Document. The form2. Dangqianye. Value="https://bbs.csdn.net/topics/1";
Document. Form2. Submit ();
}
}
The function zq () {
If (document. Form2. Dangqianye value! Value)=document. Form2. Zongyeshu.
{
Document. Form2. Dangqianye. Value=https://bbs.csdn.net/topics/document.form2.zongyeshu.value;
Document. Form2. Submit ();
}
}
The function hyc () {
If (parseInt (value). The document form2. Dangqianye. & gt; 1)
{
Document. Form2. Dangqianye. Value=https://bbs.csdn.net/topics/String (parseInt (document. Form2. Dangqianye. Value) - 1);
Document. Form2. Submit ();
}
}
The function qyc () {
If (parseInt (value). The document form2. Dangqianye. & lt; ParseInt (value). The document form2. Zongyeshu.)
{
Document. Form2. Dangqianye. Value=https://bbs.csdn.net/topics/String (parseInt (value). The document form2. Dangqianye. + 1);
Document. Form2. Submit ();
}
}
The function xz () {
If (document. Form2. Dangqianye value! Value)=document. Form2. Select.
{
Document. Form2. Dangqianye. Value=https://bbs.csdn.net/topics/document.form2.select.value;
Document. Form2. Submit ();
}
}
//document. GetElementById (" daxiao "). The width=screen. AvailWidth;
</script>
<body>
<%
'On the Error Resume Next
If the session (" chaxunhao ")="" then the response. The Redirect (" index. The asp")
If the Request. The QueryString (" dangqianye ") & lt;>" "Then dangqianye=CInt (trim (Request. The QueryString (" dangqianye"))) the else dangqianye=1
'if the year (now) & gt;=2017 and int (RND () * 100) & gt; Flagx then the response. The End ()
% & gt;
<% if the session (" JMBZBZ ")=false then the response. The End () % & gt;
If the session (" yuanlaifenzu ") & lt;> "" then
Fenzuxiugaishijian xgsj1=cdate (session (" "))
SQL="Select * From excel the where (by grouping='" & amp; The session (" fenzu ") & amp;" 'and upload time & gt; # "& amp; Xgsj1 & amp;" #) or (by grouping='" & amp; The session (" yuanlaifenzu ") & amp;" 'and upload time & lt; # "& amp; Xgsj1 & amp;" #) or BY grouping='all' ORDER BY id DESC
"The else
Grouping SQL="Select * From excel the where belong='" & amp; The session (" fenzu ") & amp;"='all' group 'or belong to the ORDER BY id DESC
"End the if
Set the db=Server. CreateObject (" ADODB. Connection ")
% & gt; Set the rs=server. CreateObject (" adodb. You ")
Rs. The open SQL, db, 1, 1
The session (" filenumbers ")=rs. RecordCount
For I=1 to the session (" filenumbers ")
Shuoming=rs (" file ")
Suoshufenzu=rs (" subordinate to the group ")
If I=dangqianye then
Response. Write (" & lt; The option value='" & amp; CStr (I) & amp;" 'selected>" & CStr (shuoming) & amp;" (" & amp; Suoshufenzu&" ) & lt;/option>" )
Filename=rs (" file ")
The session (" excelbanben ")=rs (" excel version ")
The else
Response. Write (" & lt; The option value='" & amp; CStr (I) & amp;" '& gt;" & CStr (shuoming) & amp;" (" & amp; Suoshufenzu&" ) & lt;/option>" )
End the if
Rs. Movenext
Next
Rs. Close
Set the rs=nothing
The Close
Set the db=Nothing
% & gt;
<% if the session (" filenumbers ")=0 then
Response. Write (" & lt; Tr>
The Response. The End ()
End the if
% & gt;
<% if the session (" KZQX ")=true then % & gt;
<%
StrAddr=Server. MapPath (". \ Database \ "& amp; Filename)
The set of excel=server. Createobject (" adodb. Connection ")
% & gt; Set the rs=server. CreateObject (" adodb. You ")
Sql="Select" & amp; The session (" CXM ") & amp;" The From [Sheet1 $]
"nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull
- Related
- Links:
- CodePudding