aa_content.asp

台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************

PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
Dim PaName
Select Case Action
Case "Edit"
IF xSelect="Products" THEN
    PaName="产品订购须知"
	PaContent=Web_Const(83)
	Call Page_AdminFlag(37)
End IF
IF xSelect="News" THEN
    PaName="新闻免责声明"
	PaContent=Web_Const(84)
	Call Page_AdminFlag(42)
End IF
IF xSelect="Down" THEN
    PaName="软件下载须知"
	PaContent=Web_Const(85)
	Call Page_AdminFlag(47)
End IF

Page_BootmName=PaName
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action=Aa_Content.asp?Action=sEdit&xSelect=" & xSelect & " onSubmit='return checkdata()'>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=350 CLASS=Table8>" & PaName & "：</TD>"&_
         "<TD CLASS=Table8><TEXTAREA NAME=Web_Content cols=85 rows=23 id=Web_Content>" & PaContent & "</TEXTAREA>　　HTML支持"&_
         "</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8>"&_
         "<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交资料'> "&_
         "<INPUT TYPE=reset NAME=Cel CLASS=submit_all VALUE=重新输入></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "sEdit"
Dim WebContent
IF xSelect="Products" THEN
WebContent0=request.form("Web_Content")
WebContent1=Web_Const(84)
WebContent2=Web_Const(85)
End IF
IF xSelect="News" THEN
WebContent0=Web_Const(83)
WebContent1=request.form("Web_Content")
WebContent2=Web_Const(85)
End IF
IF xSelect="Down" THEN
WebContent0=Web_Const(83)
WebContent1=Web_Const(84)
WebContent2=request.form("Web_Content")
End IF
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select Web_Content From Tx_Const"
        Rs.open Sql,Conn,1,3
		Rs("Web_Content")=WebContent0 & "||" & WebContent1 & "||" & WebContent2
		Rs.UpDate
		ToHistory=VisitorsForm
		Rs.Close
		Set Rs=Nothing
		saveok="修改成功！"
	    Call Form_Saveok()
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>