<%
if request.servervariables("REQUEST_METHOD")<>"POST" then
  response.redirect "index.asp"
  response.end
end if
%>
<!--#include file="dbinc/dbpath.asp" -->
<html>
<head>
<title>3鸟设社网站评测—成员信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.css">
<script language="JavaScript">
<!--
function check() 
{ 
var len2=pickform.pwd.value.length; 
var len3=pickform.pickpwd.value.length;
var len4=pickform.picksite.value.length;
var mystr=pickform.pickemail.value;
var mystr2=pickform.pickurl.value;

if (len2==0)
 {
  alert("请您输入您想修改的用户密码!");
  pickform.pwd.focus();
  return false;
 }
else 
if (pickform.pwd.value.indexOf(" ")!=-1) 
 {
  alert("用户密码中不能含有空格!");
  pickform.pwd.focus();
  return false;
 }
else
if (len3==0)
 {
  alert("请输入您的确认密码!");
  pickform.pickpwd.focus();
  return false;
 }
else
if (pickform.pwd.value!=pickform.pickpwd.value)
 {
  alert("请确认你输入的两个密码相同");
  pickform.pwd.focus();
  return false;
 }
else
if (pickform.pickemail.value.length==0)
 {
  alert("请输入您的电子邮箱!");
  pickform.pickemail.focus();
  return false;
 }
else
if (mystr.indexOf("@")==-1 || mystr.indexOf(".")==-1 || mystr.indexOf(" ")!=-1 || (mystr.indexOf(".")-mystr.indexOf("@")<3)) 
 {
  alert("请检查你的EMail输入是否有误!");
  pickform.pickemail.focus();
  return false;
 }
else
if (len4==0)
 {
  alert("请输入您的网站名称!");
  pickform.picksite.focus();
  return false;
 }
else
if ((mystr2==" ")||(mystr2=="http://"))
 {
  alert("请输入您网站的链接地址!");
  pickform.pickurl.focus();
  return false;
  }
else return true; 
}
// --> 
</script>
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<!--#include file="top.htm" --> <%
set rs=server.createobject("adodb.recordset")
rs.open "Select * from zkpick where pickuser='"&Trim(request.form("username"))&"' and pickpwd='"&Trim(request.form("userpwd"))&"'",conn
if rs.bof and rs.eof then
%> <table width="765" border="0" cellspacing="1" cellpadding="0" bordercolorlight="#cc3366" bordercolordark="#FFFFFF" align="center" class="9p" bgcolor="#EDB7D1"> 
<tr> <td height="20"> <div align="center"><b><font color="#FFFFFF">3鸟设社网站评测警告</font></b></div></td></tr> 
<tr> <td bgcolor="#FFFFFF"> <div align="center"> <p>&nbsp;</p><p><font color="#cc3366">对不起！您无法登录，请检查您用户名称和用户密码的有效性！</font></p><p> 
<input type="button" name="Button" value=" 返 回 " class="buttonface" onclick="javascript:history.back()"> 
</p><p>&nbsp;</p></div></td></tr> </table><%
else
  sername=request.ServerVariables("server_name")
  scrname=request.ServerVariables("script_name")
%> <table width="756" border="0" cellspacing="3" cellpadding="0" align="center" style="border-left: 1 dotted #000000; border-right: 1 dotted #000000" BGCOLOR="#FFFFFF"> 
<tr> <td width="200" bgcolor="#FFFFFF" valign="top"><P><IMG SRC="images/cool1.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map" BORDER="0"><BR><IMG SRC="images/cool3.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map2" BORDER="0"><BR><IMG SRC="images/cool4.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map3" BORDER="0"><BR><IMG SRC="images/cool6.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map4" BORDER="0"><BR><MAP NAME="Map"><AREA SHAPE="rect" COORDS="89,22,180,43" HREF="addnew.asp"></MAP><MAP NAME="Map2"><AREA SHAPE="rect" COORDS="91,20,180,43" HREF="best.asp"></MAP><MAP NAME="Map3"><AREA SHAPE="rect" COORDS="91,18,183,45" HREF="userbeginnew.asp"></MAP><MAP NAME="Map4"><AREA SHAPE="rect" COORDS="91,21,182,48" HREF="userbegin.asp"></MAP></P><P></P><P></P><P></P><P></P><P></P><P></P><P></P><P></P></td><td width="593"> 
<table width="553" border="0" cellspacing="1" cellpadding="0" align="center" class="9p" bgcolor="#EDB7D1"> 
<tr> <td height="20" BGCOLOR="#EDB7D1" width="551"> <div align="center"><b><font color="#cc3366"> 
<font color="#FFFFFF">3鸟设社网站评测—成员信息修改</font> </font></b></div></td></tr> <tr> 
<td bgcolor="#FFFFFF" width="551"> <br> <form method="post" onSubmit="return(check());" action="usermodi.asp" name="pickform"> 
<table width="545" border="0" cellspacing="0" cellpadding="0" class="9p" bgcolor="#FFFFFF"> 
<tr> <td width="57"> <div align="center">用户帐号：</div></td><td width="488">&nbsp;<font color="0000FF"><%=rs("pickuser")%></font></td></tr> 
<tr> <td width="57"> <div align="center">用户密码：</div></td><td width="488"> <input type="password" name="pwd" size="70" class="smallInput" maxlength="10" value="<%=rs("pickpwd")%>"> 
</td></tr> <tr> <td width="57"> <div align="center">重复密码：</div></td><td width="488"> 
<input type="password" name="pickpwd" size="70" class="smallInput" maxlength="10" value="<%=rs("pickpwd")%>"> 
</td></tr> <tr> <td width="57"> <div align="center">网站所有：</div></td><td width="488"> 
<input type="text" name="pickname" size="70" class="smallInput" maxlength="60" value="<%=rs("pickname")%>"> 
</td></tr> <tr> <td width="57"> <div align="center">电子信箱：</div></td><td width="488"> 
<input type="text" name="pickemail" size="70" class="smallInput" maxlength="60" value="<%=rs("pickemail")%>"> 
</td></tr> <tr> <td width="57"> <div align="center">网站名称：</div></td><td width="488"> 
<input type="text" name="picksite" size="70" class="smallInput" maxlength="30" value="<%=rs("picksite")%>"> 
</td></tr> <tr> <td width="57"> <div align="center">链接网址：</div></td><td width="488"> 
<input type="text" name="pickurl" size="70" class="smallInput" value="<%=rs("pickurl")%>" maxlength="200"> 
</td></tr> <tr> <td width="57"> <div align="center">网站缩图：</div></td><td width="488"> 
<input type="text" name="pickicon" size="70" class="smallInput" value="<%=rs("pickicon")%>" onClick="alert('注意：网站缩图大小为 180×100 像素');" maxlength="200"> 
</td></tr> <tr> <td width="57"> <div align="center">网站类型：</div></td><td width="488"> 
<select name="picktype" class="smallsel"> <% 
for i=1 to 12 
  dim typestr 
  select case i 
    case 1: typestr="电脑网络" 
    case 2: typestr="免费资源" 
    case 3: typestr="休闲娱乐" 
    case 4: typestr="文学艺术" 
    case 5: typestr="游戏世界" 
    case 6: typestr="音乐天堂" 
    case 7: typestr="体育生活" 
    case 8: typestr="程序设计" 
    case 9: typestr="商贸金融" 
    case 10: typestr="科技咨讯" 
    case 11: typestr="社会公益" 
    case 12: typestr="另类其它" 
    case else: typestr="电脑网络" 
  end select 
  if rs("picktype")=i then 
    response.write ("<option value='"&i&"' selected>"&typestr&"</option>") 
  else 
    response.write ("<option value='"&i&"'>"&typestr&"</option>") 
  end if 
next 
%> </select> </td></tr> <tr> <td valign="top" width="57"> <div align="center">网站地域：</div></td><td width="488"> 
<select name="pickdiyu" class="smallsel"> <% 
for i=1 to 20 
  dim diyustr 
  select case i 
    case 1: diyustr="海口" 
    case 3: diyustr="澄迈" 
    case 4: diyustr="临高" 
    case 5: diyustr="儋州" 
    case 6: diyustr="琼海" 
    case 7: diyustr="定安" 
    case 8: diyustr="万宁" 
    case 9: diyustr="屯昌" 
    case 10: diyustr="文昌" 
    case 11: diyustr="昌江" 
    case 12: diyustr="东方"
	case 13: diyustr="三亚" 
    case 14: diyustr="陵水" 
    case 15: diyustr="保亭" 
    case 16: diyustr="琼中" 
    case 17: diyustr="白沙" 
    case 18: diyustr="乐东" 
    case 19: diyustr="五指山"
	case 20: diyustr="其它" 
    case else: diyustr="海口" 
  end select 
  if rs("pickdiyu")=i then 
    response.write ("<option value='"&i&"' selected>"&diyustr&"</option>") 
  else 
    response.write ("<option value='"&i&"'>"&diyustr&"</option>") 
  end if 
next 
%> </select> </td></tr> <tr> <td valign="top" width="57"> <div align="center">网站性质：</div></td><td width="488"> 
<select name="pickleibie" class="smallsel"> <% 
for i=1 to 2 
  dim leibiestr 
  select case i 
    case 1: leibiestr="个人网站" 
    case 2: leibiestr="企业网站" 
    
    case else: leibiestr="个人网站" 
  end select 
  if rs("pickleibie")=i then 
    response.write ("<option value='"&i&"' selected>"&leibiestr&"</option>") 
  else 
    response.write ("<option value='"&i&"'>"&leibiestr&"</option>") 
  end if 
next 
%> </select> </td></tr> <tr> <td valign="top" width="57"> <div align="center">网站简介：</div></td><td width="488"> 
<textarea name="pickmemo" cols="66" rows="3" class="smallInput" wrap="VIRTUAL"><%=rs("pickmemo")%></textarea> 
</td></tr> <tr> <td valign="top" width="57"> <div align="center">站长或企<br> 业简介：</div></td><td width="488"> 
<textarea name="pickjink" cols="66" rows="3" class="smallInput" wrap="VIRTUAL"><%=rs("pickjink")%></textarea> 
</td></tr> <tr> <td valign="top" width="57" HEIGHT="100"> <div align="center">加盟代码：<br> 
<font color="#cc3366">*不可修改*</font> </div></td><td width="488" HEIGHT="100"> <textarea name="textfield" cols="66" rows="4" wrap="VIRTUAL" class="smallInput" readonly="true"><%
sername=request.ServerVariables("server_name")
scrname=request.ServerVariables("script_name")
response.write ("<a href=http://"&sername&left(scrname,len(scrname)-13)&"show.asp?id="&rs("pickid")&" target=_blank><img src=http://"&sername&left(scrname,len(scrname)-13)&"image/"&rs("pickgrade")&".gif  title=权威性网站测评机构! border=0 ></a>")
%></textarea> </td></tr> <tr> <td colspan="2" class="2p">&nbsp;</td></tr> <tr bgcolor="#FFFFFF"> 
<td colspan="2"> <div align="center"> <input type="submit" name="Submit" value=" 修 改 " class="buttonface"> 
<input type="button" name="Submit2" value=" 返 回 " class="buttonface" onClick="javascript:location.href='index.asp'"> 
<%response.write ("<input type='hidden' name='modiid' value='"&rs("pickid")&"'>")%> 
<br> </div></td></tr> </table></form></td></tr> </table></td></tr> </table><% 
end if 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%> <!--#include file="bottom.htm" -->
</body> 
</html> 

