sz_gg_caozuo.asp

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

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.Admin_GG()
Set FangWen=Nothing
Private s,c
Set s=New xkon_Request
Set c=New xkon_Response
	Private Sub b()
		Dim Cn1,Cn2
		Set Cn1=Server.CreateObject("Adodb.Command")
		Cn1.ActiveConnection=Conn
		Cn1.CommandType=1
		Cn1.CommandText="Select * From SZ_GG Where ID="&Clng(ID)
		Set Cn2=Cn1.Execute
		If Cn2.Eof Then
			Call xkon_Error("该内容不存在")
			Response.End()
		Else
			c.Writeln("<form method=""post"" action=""SZ_GG_CaoZuo.Asp?l=b2&amp;id="&ID&""">广告图片:<input name=""Tu"" value="""&Cn2("Tu")&""" />")
			c.Writeln("广告文字:<input name=""WenZi"" value="""&Cn2("WenZi")&""" />")
			c.Writeln("广告地址:<input name=""DiZhi"" value="""&Cn2("DiZhi")&""" />")
			c.Write("<input type=""submit"" value=""修改"" />")
			c.Write("</Form>")
		End If
		Set Cn1=Nothing
		Set Cn2=Nothing
	End Sub
	Private Sub b2()
		Dim Tu,WenZi,DiZhi
		Tu=s.Form_Str("Tu",4,250)
		WenZi=s.Form_Str("WenZi",1,250)
		DiZhi=s.Form_Str("DiZhi",4,250)
		If WenZi="" Or DiZhi="" Then
			Call xkon_Error("所有填写项不能为空")
		Else
			Call OpenData()
				Conn.Execute("Update SZ_GG Set Tu='"&Tu&"',WenZi='"&WenZi&"',DiZhi='"&DiZhi&"' Where ID="&Clng(ID))
				Call JiLu("编辑广告"&ID)
			Call CloseData()
			Application("Ad")=""
	Response.Write("<script language=javascript>location.href=""SZ_GG.Asp"";</script>")
	Response.End()
		End If
	End Sub
	Private Sub Delete()
		Call OpenData()
			Conn.Execute("Delete From SZ_GG Where ID="&Clng(ID))
			Call JiLu("删除广告"&ID)
		Call CloseData()
		Application("Ad")=""
	Response.Write("<script language=javascript>location.href=""SZ_GG.Asp"";</script>")
	Response.End()
	End Sub
	Call H_Title("广告管理")
	Private l,ID
	ID=s.QueryString("ID")
	l=s.QueryString("l")
	Select Case l
	Case "b"
		Call OpenData()
		Call b()
		Call CloseData()
	Case "b2"
		Call b2()
	Case "s"
		Call Delete()
	End Select
	c.Write("<a href=""SZ_GG.Asp"">返回广告管理</a>")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>