手机WAP编程

开发平台：

ASP/ASPX

ShouCang.Asp：源码内容

							<!--#Include File="Inc/xkon.Asp"--><%
Call QuanXian("1",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Function ShouCang_LieBiao()
		Dim ShouCang_LieBiao_Cn1,p,i
		p=s.QueryString_Long("p")
		Call OpenData()
			Set ShouCang_LieBiao_Cn1=Server.CreateObject("Adodb.RecordSet")
			ShouCang_LieBiao_Cn1.Open "Select ID,MingChen,DiZhi From ShouCang Where ZhangHao='"&Zi_ZhangHao&"' Order By ID Desc",Conn,1,1
			ShouCang_LieBiao_Cn1.PageSize=Const_Page_Ys
			If ShouCang_LieBiao_Cn1.Eof Then ShouCang_LieBiao="娌℃湁浠讳綍璁板綍<br/>":ShouCang_LieBiao_Cn1.Close:Set ShouCang_LieBiao_Cn1=Nothing:Call CloseData():Exit Function
			ShouCang_LieBiao_Cn1.AbsolutePage=p
			For i=1 To Const_Page_Ys
				If ShouCang_LieBiao_Cn1.Eof Then Exit For
				ShouCang_LieBiao=ShouCang_LieBiao&"<a href="""&ShouCang_LieBiao_Cn1("DiZhi")&""">"&ShouCang_LieBiao_Cn1("MingChen")&"</a>|<a href=""ShouCang?ID="&ShouCang_LieBiao_Cn1("ID")&"{(xkon.cn)閾炬帴}"">鍒犻櫎</a><br/>"
				ShouCang_LieBiao_Cn1.MoveNext
			Next
			ShouCang_LieBiao=ShouCang_LieBiao&CPage(ShouCang_LieBiao_Cn1.PageCount,p,"ShouCang.Asp?n={(xkon.cn)閾炬帴}&amp;")
			ShouCang_LieBiao_Cn1.Close
			Set ShouCang_LieBiao_Cn1=Nothing
		Call CloseData()
	End Function
	Private Sub Jia()
		Dim MingChen,DiZhi,Jia_Cn1,Jia_Cn2,J_ID
		MingChen=s.QueryString("MingChen")
		DiZhi=s.QueryString("DiZhi")
		If DiZhi="" Then Call xkon_Error("鍦板潃涓嶈兘涓虹┖")
		Call OpenData()
			Set Jia_Cn1=Server.CreateObject("Adodb.Command")
			Jia_Cn1.ActiveConnection=Conn
			Jia_Cn1.CommandType=1
			Jia_Cn1.CommandText="Select ID From ShouCang Order By ID Desc"
			Set Jia_Cn2=Jia_Cn1.Execute
			If Jia_Cn2.Eof Then
				J_ID=1
			Else
				J_ID=Jia_Cn2("ID")+1
			End If
			Set Jia_Cn1=Nothing
			Set Jia_Cn2=Nothing
			Conn.Execute("Insert Into ShouCang(ID,MingChen,DiZhi,ZhangHao)Values('"&J_ID&"','"&MingChen&"','"&DiZhi&"','"&Zi_ZhangHao&"')")
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ShouCang.Asp?n={(xkon.cn)閾炬帴}"),"&amp;","&"))
	End Sub
	Private Sub Delete()
		Dim ID
		ID=s.QueryString_Long("ID")
		Call OpenData()
			Conn.Execute("Delete From ShouCang Where ID="&ID)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ShouCang.Asp?n={(xkon.cn)閾炬帴}"),"&amp;","&"))
	End Sub
	Call H_Title("鎴戠殑鏀惰棌")
		If s.QueryString("ID")<>"" Then Call Delete()
		If s.QueryString("MingChen")<>"" Then Call Jia()
		c.Write(xkon_FenXi(Replace(Read_Text("ShouCang"),xkon_S("鏀惰棌鍒楄〃"),ShouCang_LieBiao())))
	Call H_End()
Set c=Nothing
Set s=Nothing
%>

						