updateinfo.asp

大型黄页系统,精美黄页flash演示,10m

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/chkinput.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Dim DownloadClass_Ads
Dim Rs
Dim SQL
Dim ErrMsg
Dim Sucmsg
Dim Founderr
Dim NowStats
Dim HtmlTitle
Dim Style_CSS
Dim HtmlTempStr
Dim TempTopStr
Dim TempFootStr
Dim username,userid
UpdateInfo
If IsObject(DownloadClass_Ads) Then
	Set DownloadClass_Ads = Nothing
End If
CloseConn
Public Sub UpdateInfo()
	Response.Expires = 0
	Response.ExpiresAbsolute = Now() - 1
	Response.cachecontrol = "no-cache"
	Founderr = False
	DownsysClass.LoadTemplates ("index")
	Set DownloadClass_Ads = New Adcolumn_Cls
	Set Rs = CreateObject("adodb.recordset")
	If DownsysClass.memberName = Empty Then
		Response.Write "<script>alert('" & DownsysClass.mainset(39) & "');location.replace('login.asp')</script>"
		Response.End
	End If
	If CInt(DownsysClass.Setting(42)) = 0 Then
		Response.Write "<script>alert('" & DownsysClass.mainset(38) & "');javascript:history.back(1)</script>"
		Response.End
	End If
	NowStats = "修改用户资料"
	HtmlTitle = "修改用户资料"
	TempTopStr = DownsysClass.mainhtml(0) & DownsysClass.TempHtml(0) & DownsysClass.mainhtml(2) 
	TempFootStr = DownsysClass.mainhtml(4)
	Style_CSS = Replace(Replace(DownsysClass.Style_CSS, "{$SetupDir}", DownsysClass.SetupDir), "{$PicUrl}", DownsysClass.TempDir)
	HtmlTempStr = TempTopStr
	HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", DownsysClass.SortingMenu)
	HtmlTempStr = Replace(HtmlTempStr, "{$Width}", DownsysClass.mainset(0))
	HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
	If CInt(DownsysClass.Setting(5)) = 0 Then
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(9))
	Else
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(10))
	End If
	HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
	HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", DownloadClass_Ads.RunScriptAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", DownloadClass_Ads.BannerAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", DownloadClass_Ads.AdsColumn(7, 2))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", DownloadClass_Ads.AdsColumn(7, 3))
	Response.Write HtmlTempStr
	
	If CInt(DownsysClass.Setting(5)) = 1 Then
		TempFootStr = Replace(TempFootStr, "{$FootMeun}", DownsysClass.mainset(11))
	Else 
		TempFootStr = Replace(TempFootStr, "{$FootMeun}", DownsysClass.mainset(44))
	End If
	
	TempFootStr = Replace(TempFootStr, "{$Width}", DownsysClass.mainset(0))
	TempFootStr = Replace(TempFootStr, "{$Adcolumn(4)}", DownloadClass_Ads.ScriptFloatAds(7))
	TempFootStr = Replace(TempFootStr, "{$Adcolumn(5)}", DownloadClass_Ads.ScriptFixedAds(7))
	Response.Write "<script language=""JavaScript"">" & vbCrLf
	Response.Write "<!--" & vbCrLf
	Response.Write "function CheckForm()" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.username.value.length == 0)" & vbCrLf
	Response.Write " {" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入用户名."");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.username.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.truename.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入你的真实姓名！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.truename.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.usertel.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入你的联系电话！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.usertel.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.address.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入你的联系地址！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.address.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.question.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入你的密码提示问题！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.question.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return true;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "//-->"
	Response.Write "</script>" & vbCrLf
	Response.Write "<TABLE width="""
	Response.Write DownsysClass.mainset(0)
	Response.Write """ class=TableBorder cellSpacing=0 cellPadding=0 align=center border=0>" & vbCrLf
	Response.Write " <TR vAlign=top>" & vbCrLf
	Response.Write " <TD class=Border2> <BR style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">" & vbCrLf
	Select Case Request("action")
		Case "save"
			Call modify
		Case Else
			Call main
	End Select
	If Founderr = True Then
		Response.Write "<script>alert('" & ErrMsg & "');javascript:history.back(1)</script>"
	End If
	Response.Write " </TD></TR></TABLE>" & vbCrLf
	Response.Write TempFootStr
End Sub


Private Sub main()
	Rs.Open "Select * from [NC_User] where username='" & DownsysClass.memberName & "' and userid=" & DownsysClass.memberid & "", conn, 1, 1
	If Rs.bof And Rs.EOF Then
		Response.Write "Sorry！没有找到此用户信息信息。"
	Else
	
	%>
<script>
var m_oXMLDoc = new ActiveXObject("Microsoft.XMLDOM");
var m_sBaseSrc = "Tree.asp?ParentCode=";

function BindSelect( strXMLSrc , objSelectName, defaultVal)
{
    m_oXMLDoc.async = true;  
    m_oXMLDoc.onreadystatechange = Function( "fnLoadComplete('" + objSelectName + "', '" + defaultVal + "');" );    
    m_oXMLDoc.load( strXMLSrc );
}

function fnLoadComplete(objSelectName, defaultVal)
{
	var objSelect = document.all[objSelectName];
	var aryXMLNodes;
	var node;
	if (objSelect == null) 
		return;
    try
    {
        var iReadyState = m_oXMLDoc.readyState;
    }
    catch(e)
    {
        return;
    }
    
    if(  iReadyState != 4 ) return;
    
    if( m_oXMLDoc != null && m_oXMLDoc.xml != "" )
    {
		objSelect.length = 0;
		aryXMLNodes = m_oXMLDoc.documentElement.selectNodes("TreeNode");
		objSelect.options[0] = new Option("==重新选择==");
		for (var i=0; i < aryXMLNodes.length; i++)
		{
			node = aryXMLNodes[i];
			objSelect.options[i+1] = new Option(node.getAttribute("Title"),node.getAttribute("MaterialClassCode"));
		}
		
		if (defaultVal != null && defaultVal != "" && objSelect.length > 1)
		{
			SetSelectedValue(objSelect, defaultVal)
		}
		
		if(objSelect.ChildSelectName != null)
		{
			objSelect.onchange = Function( "var val = this.options[this.selectedIndex].value;BindSelect(m_sBaseSrc+val, '"+objSelect.ChildSelectName+"', '"+defaultVal+"');if(val!='')document.all.MaterialClassCode.value=val;" );    
			objSelect.fireEvent("onchange");			
		}
		else
		{
			objSelect.onchange = Function( "var val = this.options[this.selectedIndex].value;if(val!='')document.all.MaterialClassCode.value=val;" );    
		}
	}
}

function InitSelect(defaultVal)
{
	document.all.MaterialClassCode.value = "";
	BindSelect( m_sBaseSrc + "00", "CountryListCN", defaultVal);
}

function Equality(val1,val2)
{
	if (val1.length < val2.length || val2 == "")
		return false;
	return (val1.substr(0,val2.length) == val2)
}

function SetSelectedValue(oSel,val)
{
	if (val == null)
		return;
	for(var i=0; i<oSel.length; i++)
	{
		if (Equality(val, oSel.options[i].value))
		{
			oSel.selectedIndex = i;

			if(oSel.ChildSelectName == null)
				oSel.fireEvent("onchange");			
			break;
		}
	}
}

window.onload = function(){InitSelect();}
</script>
<script LANGUAGE="javascript">
	<!--
	function myform_onsubmit() {
	var i, n;
	if (document.myform.username.value=="")
		{
		  alert("对不起，请输入您的用户名！")
		  document.myform.username.focus()
		  return false
		 }
	else if (document.myform.username.value.length < 4)
		{
		  alert("您的用户名能不能长一点！")
		  document.myform.username.focus()
		  return false
		 }
	else if (document.myform.username.value.length > 30)
		{
		  alert("您的用户名太长了吧！")
		  document.myform.username.focus()
		  return false
		 }
	else if (document.myform.username.value.indexOf('`') >= 0 ||
	          document.myform.username.value.indexOf('~') >= 0 ||
	          document.myform.username.value.indexOf('!') >= 0 ||
	          document.myform.username.value.indexOf('@') >= 0 ||
	          document.myform.username.value.indexOf('#') >= 0 ||
	          document.myform.username.value.indexOf('$') >= 0 ||
	          document.myform.username.value.indexOf('%') >= 0 ||
	          document.myform.username.value.indexOf('^') >= 0 ||
	          document.myform.username.value.indexOf('&') >= 0 ||
	          document.myform.username.value.indexOf('*') >= 0 ||
	          document.myform.username.value.indexOf('(') >= 0 ||
	          document.myform.username.value.indexOf(')') >= 0 ||
	          document.myform.username.value.indexOf('+') >= 0 ||
	          document.myform.username.value.indexOf('{') >= 0 ||
	          document.myform.username.value.indexOf('}') >= 0 ||
	          document.myform.username.value.indexOf('|') >= 0 ||
	          document.myform.username.value.indexOf('[') >= 0 ||
	          document.myform.username.value.indexOf(']') >= 0 ||
	          document.myform.username.value.indexOf('\\') >= 0 ||
	          document.myform.username.value.indexOf(';') >= 0 ||
	          document.myform.username.value.indexOf(':') >= 0 ||
	          document.myform.username.value.indexOf('>') >= 0 ||
	          document.myform.username.value.indexOf('<') >= 0 ||
	          document.myform.username.value.indexOf(',') >= 0 ||
	          document.myform.username.value.indexOf('?') >= 0 ||
	          document.myform.username.value.indexOf('/') >= 0 || 
	          document.myform.username.value.indexOf('\'') >= 0 || 
	          document.myform.username.value.indexOf('"') >= 0 || 
	          document.myform.username.value.indexOf(' ') >= 0 || 
	          document.myform.username.value.indexOf('=') >= 0 || 
	          document.myform.username.value.indexOf('%') >= 0
	         )  
	          {
	            alert("用户名中包含无效字符，请重新选择用户名！"); 
	            document.myform.username.focus();
	            return false;