configue_do.asp

WAP2.0的手机网站留言板

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.CodePage=65001%>
<%Response.Charset="UTF-8"%>
<!--#include file="adminCheck.asp"-->
<!--#include file="../func.asp"-->
<!--#include file="db_conn_admin.asp"-->
<%
name=Trim(request.form("name"))
pic=Trim(request.form("pic"))
a_width=Trim(request.form("width"))

isMsgShow=Trim(request.form("isMsgShow"))
msgShowNum=Trim(request.form("msgShowNum"))
msgIntro=HTMLEncode(request.form("msgIntro"))
msgFilter=request.form("filter")

mailSMTP=Trim(request.form("mailSMTP"))
mailAdd=Trim(request.form("mailAdd"))
mailAcc=Trim(request.form("mailAcc"))
mailPass=Trim(request.form("mailPass"))

if strLength(name)<1 Then
	Response.redirect "error.asp?err=1302"
Else
	sqlStr="update WP_conf set conf_name='"&name&"',conf_logo='"&pic&"',conf_width='"&a_width&"',conf_isMsgShow='"&isMsgShow&"',conf_msgShowNum='"&msgShowNum&"',conf_msgIntro='"&msgIntro&"',conf_filter='"&msgFilter&"',conf_mailSMTP='"&mailSMTP&"',conf_mailAddress='"&mailAdd&"',conf_mailAccount='"&mailAcc&"',conf_mailPassword='"&mailPass&"'"
	conn.execute(sqlStr)

	session("logo")=""

	Response.redirect "info.asp?info=2301"
End if

Set conn=nothing
%>