www.gusucode.com > 栽豆迷你博客 MiniBlog 3.0 正式版源码程序 > Settings.asp

    <!--#include file="include/conn.asp" -->
<!--#include file="include/char.asp" -->
<!--#include file="include/const.asp" -->
<!--#include file="include/md5.asp" -->
<!--#include file="include/function.asp" -->
<%
Dim StrHtml,ExecuteStr,emails,password,password2,questionid,answers,UserFace,blogurl,remarks,usersex,province,city,txtqq,txtmsn,txtgtalk,Rs,sdata

If Request("m")="save" then
	SaveUserEdit()
Else
	LoadUserEdit()
	Caluoob.OtherHerder Caluoob.SystemName&" | 设置"
	StrHtml=Caluoob.Loadskins("other_table.txt")
	StrHtml=Replace(StrHtml,"$table_content",Caluoob.Loadskins("user_setting.txt"))
	StrHtml=Replace(StrHtml,"$table_setting",UserEdit)
	Response.Write StrHtml
	Caluoob.Footer
	Response.Flush()
End If

Sub LoadUserEdit()
	Set Rs=Caluoob.Execute("Select top 1 emails,questionid,answers,userface,blogurl,remarks,usersex,province,city,txtqq,txtmsn,txtgtalk from [cb_user] where id="&Caluoob.UserID)
	sdata=Rs.GetRows(1)
	Rs.close
	Set Rs=Nothing
End Sub

Sub SaveUserEdit()
		password=Replace(CheckStr(Request("password")),"'","''")
		password2=Replace(CheckStr(Request("password2")),"'","''")
		questionid=Replace(ValidInteger(Request("questionid")),"'","''")
		answers=Replace(RemoveHTML(CheckStr(Request("answers"))),"'","''")
	If answers=Empty Then answers=""
	blogurl=Replace(CheckStr(Request("blogurl")),"'","''")
	If blogurl=Empty Then blogurl="http://"
	usersex=Replace(CheckStr(Request("usersex")),"'","''")
	province=Replace(CheckStr(Request("province")),"'","''")
	city=Replace(CheckStr(Request("city")),"'","''")
	txtqq=Replace(CheckStr(Request("txtqq")),"'","''")
	If txtqq=Empty Then txtqq="0"
	txtmsn=Replace(CheckStr(Request("txtmsn")),"'","''")
	If txtmsn=Empty Then txtmsn=" "
	txtgtalk=Replace(CheckStr(Request("txtgtalk")),"'","''")
	If txtgtalk=Empty Then txtgtalk=" "
	remarks=Replace(RemoveHTML(CheckStr(Request("remarks"))),"'","''")
	If remarks=Empty Then remarks="这家伙很懒,什么都没留下…"
	If Left(md5(password),16)=Caluoob.UserWord then
	ExecuteStr="update cb_user set usersex="&usersex&",txtqq='"&txtqq&"',txtmsn='"&txtmsn&"',txtgtalk='"&txtgtalk&"',province='"&province&"',city='"&city&"',questionid="&questionid&",answers='"&answers&"',blogurl='"&blogurl&"',remarks='"&remarks&"'"
	If password2<>"" then ExecuteStr=ExecuteStr&",passwords='"&md5(password2)&"'"
	ExecuteStr=ExecuteStr&" where id="&Caluoob.UserID
	Caluoob.Execute(ExecuteStr)
	Response.Redirect "settings.asp"
	Else
	Call Caluoob.ShowErr("原始密码错误,或者为空！")
	End If
End Sub

Function UserEdit()
	UserEdit=Caluoob.Loadskins("user_set.txt")
	UserEdit=Replace(UserEdit,"$usersex",UserSexEdit(sdata(6,0)))
	UserEdit=Replace(UserEdit,"$emails",sdata(0,0))
	UserEdit=Replace(UserEdit,"$questionid",Question(sdata(1,0)))
	UserEdit=Replace(UserEdit,"$answers",sdata(2,0))
	UserEdit=Replace(UserEdit,"$userface",sdata(3,0))
	UserEdit=Replace(UserEdit,"$blogurl",sdata(4,0))
	UserEdit=Replace(UserEdit,"$remarks",sdata(5,0))
	UserEdit=Replace(UserEdit,"$province",sdata(7,0))
	UserEdit=Replace(UserEdit,"$city",sdata(8,0))
	UserEdit=Replace(UserEdit,"$txtqq",sdata(9,0))
	UserEdit=Replace(UserEdit,"$txtmsn",sdata(10,0))
	UserEdit=Replace(UserEdit,"$txtgtalk",sdata(11,0))
End Function

Function UserSexEdit(Str)
UserSexEdit="<select name=usersex id=pro_bas_gender>"
IF Str=0 then
	UserSexEdit=UserSexEdit&"<option value=0 selected>男</option><option value=1>女</option>"
Else
	UserSexEdit=UserSexEdit&"<option value=1 selected>女</option><option value=0>男</option>"
End IF
UserSexEdit=UserSexEdit&"</select>"
End Function

Function Question(Str)
Dim QuestionStr,i
QuestionStr=Split(Caluoob.Loadskins("question.txt"),vbnewline)
Question="<select name=questionid id=questionid>"&vbnewline
For i=0 to Ubound(QuestionStr)
	If i=Str Then
		Question=Question&"<option value="&i&" selected>"&QuestionStr(i)&"</option>"&vbnewline
	Else
		Question=Question&"<option value="&i&">"&QuestionStr(i)&"</option>"&vbnewline
	End if	
Next
Question=Question&"</select>"
End Function
%>