📄 pusearchmember.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<!--#include file="functions/sendmail.asp" -->
<%
Response.Buffer = True 
Dim strUsername
If Request.Form("name") <> "" Then
	strUsername = Request.Form("name")
	strUsername = disallowedMemberNames(strUsername)
	strUsername = formatSQLInput(strUsername)
	strSQL = "SELECT timesuser.Username "
	strSQL = strSQL & "FROM timesuser "
	strSQL = strSQL & "WHERE timesuser.Username Like '" & strUsername & "%' "
	strSQL = strSQL & "ORDER BY timesuser.Username ASC;"
	rsConn.Open strSQL, adoCon
End If
%>

<html>
<head>


<title>用户搜寻</title>
    	
<script  language="JavaScript">
function CheckForm () {
	var errorMsg = "";
	if (document.frmMemSearch.name.value==""){
		msg = "_______________________________________________________________\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "_______________________________________________________________\n\n";
		msg += "以下区域需要修改: \n";
		alert(msg + "\n\t用户名 \t- 输入你论坛用户名");
		document.frmMemSearch.name.focus();
		return false;
	}
	return true;
}

function getUserName(selectedName)
{
	
	window.opener.document.<% If Request.QueryString("RP") = "BUD" Then Response.Write("frmBuddy.username") Else Response.Write("frmAddMessage.member") %>.focus();
	window.opener.document.<% If Request.QueryString("RP") = "BUD" Then Response.Write("frmBuddy.username") Else Response.Write("frmAddMessage.member") %>.value = selectedName;
	window.close();
}
</script>
<!--#include file="includes/skin.asp" -->
</head>
<body marginheight="0" marginwidth="0" topmargin="0" leftmargin="0"><br/>
<div align="center" class="heading">会员搜寻</div>
<form method="post" name="frmMemSearch" action="pusearchmember.asp<% If Request.QueryString("RP") = "BUD" Then Response.Write("?RP=BUD") %>" onSubmit="return CheckForm();">
 <table width="300" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<% = strTableBgColour %>">
  <tr> 
      <td bgcolor="#ffffff" height="26" class="text">
			会员搜寻:&nbsp;<input type="text" name="name" size="15" maxlength="15" value="<% = strUsername %>"> <input type="submit" name="Submit" value="搜索"></td>
        </tr><%
If Request.Form("name") <> "" Then
%>        
        <tr> 
        <td bgcolor="#ffffff" height="26" class="text">选择用户: <select name="userName"><%
	If rsConn.EOF then
		Response.Write("<option value="""" selected>没有找到相关的用户</option>") 
	Else   
		Do while NOT rsConn.EOF  
			Response.Write("<option value=""" & rsConn("Username") & """>" & rsConn("Username") & "</option>")       
           		rsConn.MoveNext     
           	Loop        
        End If        
        %>
          </select> <input type="button" name="Button" value="选择" onClick="getUserName(frmMemSearch.userName.options[frmMemSearch.userName.selectedIndex].value);"></td>
        </tr><% 
        rsConn.Close
End If        

Set rsConn = Nothing 
adoCon.Close
Set adoCon = Nothing  
%>       
</table>
</form>

<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
 <tr> 
  <td align="center"><a href="JavaScript:onClick=window.close()">关闭窗口</a> <br />
</tr></table>
<br/><br/>
<!-- #include file="includes/footer.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -