biaoqing.asp

来自「支持IE 手机同步访问的WAP论坛社区程序 很不错」· ASP 代码 · 共 62 行

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.BiaoQing()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub LieBiao()
		Dim Cn1,Cn2,SQL,p,i
		p=s.QueryString_Long("p")
		SQL="Select * From BiaoQing Order By Id Desc"
		Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.Recordset")
		Cn1.Open SQL,Conn,1,1
		Cn1.PageSize=20
		If Not Cn1.Eof Then
			Cn1.AbsolutePage=p
		End If
		c.Write("<form method=""post"" action=""BiaoQing.Asp""><table width=100% ><tr><td></td><td>ID</td><td>名称</td><td>地址</td><td>快捷字符</td><td></td><td></td></tr>")
		For i=1 To 20
			If Cn1.Eof Then Exit For
			c.Write("<tr><td><input type=""checkbox"" name=""id"" value="""&Cn1("ID")&""" /></td><td>"&Cn1("ID")&"</td><td>"&Cn1("MingChen")&"</td><td>"&Cn1("Url")&"</td><td>"&Cn1("KuaiJie")&"</td><td><a href=""BiaoQing_CaoZuo.Asp?l=b&amp;id="&Cn1("ID")&""">编辑</a></td><td><a href=""BiaoQing_CaoZuo.Asp?l=s&amp;id="&Cn1("ID")&""" onClick=""if (confirm('确认操作')){return true;}else{return false;}"">删除</a></td></tr>")
			Cn1.MoveNext
		Next
		c.Write("</table>")
		Call CPage(Cn1.PageCount,p,"BiaoQing.Asp")
		Cn1.Close
		Set Cn1=Nothing
		Call CloseData()
		c.Write("操作:<input type=""submit"" name=""submit"" value=""删除"" /></form>")
	End Sub
	Private Sub Delete()
		Dim ID,S_ID,i,SQL
		S_ID=Request.Form("S_ID")
		If S_ID="" Then Call xkon_Error("请先选中操作对象")
		ID=Split(S_ID,",")
		SQL="Delete From BiaoQing"
		For i=0 To Ubound(ID)
			If i=0 Then
				SQL=SQL&" Where ID="&Clng(S_ID(i))
			Else
				SQL=SQL&" Or ID="&Clng(S_ID(i))
			End If
		Next
		Call OpenData()
			Conn.Execute(SQL)
			Call JiLu("删除表情"&s.Form("ID"))
		Call CloseData()
		c.Writeln("删除成功")
	End Sub
	Call H_Title("表情管理")
	If s.Form("submit")<>"" Then
		Call Delete()
	End If
	c.Writeln("<a href=""BiaoQing_CaoZuo.Asp?l=j"">增加表情</a>")
	Call LieBiao()
	Call H_End()
Set c=Nothing
Set s=Nothing
%>