Dim e As RequestEventArgs = Args(0)
Dim times As Single=args(1)
Dim host As String=e.host
Dim path As String=e.path
Dim openid As String
If e.Cookies.ContainsKey("pxopenid") Then '从cookie中获取微信用户id
Openid = e.Cookies("pxopenid")
End If
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Insert Into wxWeblog(host,path,CREATE_TIME,time,openid) Values(?,?,?,?,?)"
cmd.Parameters.Add("@11",host)
cmd.Parameters.Add("@22",path )
cmd.Parameters.Add("@66",now.Tostring.replace("-","").replace(" ","").replace(":",""))
cmd.Parameters.Add("@33",times)
cmd.Parameters.Add("@44",openid)
cmd.ExecuteNonQuery
加好友 
发短信
Post By：2018/8/20 20:54:00 [显示全部帖子]
