dlaa.asp

wap系统程序源码 用户名密码:admin

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="conn.inc"-->
<%Server.ScriptTimeout=9999
'------------
Dim strFilePath, strFileSize, strFileName
Const adTypeBinary = 1
Response.Buffer = True
strFileName="dl.gif"
FilePath=Server.MapPath(""&strFileName)    
Response.Clear

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile FilePath

strFileSize =objStream.size

Response.AddHeader "Content-Length", strFileSize
Response.Charset = "UTF-8" ' 客户端浏览器的字符集UTF-8
Response.ContentType = "image/gif"

Response.BinaryWrite objStream.Read
Response.Flush

objStream.Close
Set objStream = Nothing
dim sjhm,wap
wap=Request("wap")
grip=Request.ServerVariables("REMOTE_ADDR")
sjhm = right(request("_mn_"),11)
if sjhm<>"" then
set zhhy=Server.CreateObject("ADODB.Recordset")
  zhhssqly="select id from 66hc_gr order by id desc"
  zhhy.open zhhssqly,conn,1,1
mmdd=zhhy("id")+1
mmnini="会员("&mmdd&")"
zhhy.close
set zhhy=nothing

set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select * from 66hc_gr where sjhm=" & sqlstr(sjhm)
  objgbrs.open ssql,conn,1,3
if objgbrs.eof then
objgbrs.addnew
objgbrs("sjhm")=sjhm
objgbrs("mm")=right(sjhm,4)
objgbrs("nini")=mmnini
objgbrs("myip")=grip
objgbrs("grsb")=wap
objgbrs.update
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
response.redirect "zhuce.gif" 
response.end
else
Session("useid")=objgbrs("id")
sql="update 66hc_gr set grsb='"& wap &"',dlsj=now() where cstr(id)="& Session("useid")
conn.execute(sql)
End if
set objgbrs=nothing
conn.close
set conn=nothing
function sqlstr(data)
   sqlstr="'" & Replace(data,"'","'") & "'"
  End function
end if
%>