XieXiaoXi.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:1k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#Include File="Inc/xkon.Asp"--><%
- Call QuanXian("1",0)
- Private c,s
- Set c=New xkon_Response
- Set s=New xkon_Request
- Private Sub ShuChu()
- Dim Z,D
- Z=s.QueryString("Z")
- If Z="" Then
- D="用户名:<input type=""text"" size=""10"" maxlength=""16"" name=""Z"" />"
- Else
- D="<input type=""hidden"" name=""Z"" value="""&Z&""" />"
- End If
- c.Write(xkon_FenXi(Replace(Read_Text("XieXiaoXi"),xkon_S("用户"),D)))
- End Sub
- Private Sub ChuLi()
- Dim Z,NeiRong
- Z=s.Form("Z")
- NeiRong=s.Form_Str("NeiRong",CLng(Read_SZ("XiaoXi_Length_d")),CLng(Read_SZ("XiaoXi_Length_c")))
- If NeiRong="" Then Call xkon_Error("内容不能为空")
- Dim Cn1,Cn2
- Call OpenData()
- Set Cn1=Server.CreateObject("Adodb.Command")
- Cn1.ActiveConnection=Conn
- Cn1.CommandType=1
- Cn1.CommandText="Select ID From ZhangHao Where ZhangHao='"&Z&"'"
- Set Cn2=Cn1.Execute
- If Cn2.Eof Then Call xkon_Error("该用户不存在")
- Set Cn1=Nothing
- Set Cn2=Nothing
- Call Jia_JingBi("+"&Clng(Read_SZ("JiFen_XiaoXi")),"+"&Clng(Read_SZ("JingYan_XiaoXi")))
- Call FaXin(Zi_ZhangHao,Z,0,NeiRong)
- Call CloseData()
- c.Write(xkon_FenXi(Read_Text("XieXiaoXi1")))
- End Sub
- Call H_Title("发送消息")
- Dim l
- l=s.QueryString("l")
- Select Case l
- Case ""
- Call ShuChu()
- Case Else
- Call ChuLi()
- End Select
- Call H_End()
- Set c=Nothing
- Set s=Nothing
- %>