<!--#include file="conn.asp"-->
<%
startime=timer()
sql="select * from info where id=1"
rs.open sql,conn,1,1
upsize=rs("upsize")
rs.close
set rs=nothing
set conn=nothing
'以下為常用過程
public sub GetCode()
response.write "<img src=""getcode.asp"" alt= ""驗(yàn)證碼,看不清楚?請點(diǎn)擊刷新驗(yàn)證碼"" style=""cursor : pointer;height : 20px;"" onclick=""this.src='getcode.asp'""/> "
end sub
public sub CodeIsTrue(b)
if CStr(Session("GetCode"))<>cstr(Trim(Request("Code"))) then
randomize
Session("GetCode")=rnd()
if b="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('驗(yàn)證碼錯誤，請刷新頁面后重新輸入！');" & "history.back()" & "</script>" 
else
response.write "<script language=JavaScript>" & chr(13) & "alert('驗(yàn)證碼錯誤，請重新輸入！');"&"window.location.href = '"&b&"'"&" </script>"
end if
Response.End
end if
end sub
%>