www.gusucode.com > 雨点单用户免雨点单用户免费留言板 2.0 Build 080828 > modify.asp
<%@ Language=VBScript %>
<%response.buffer=false%>
<%response.expires = 0 %>
<!--#include file="conn.asp"-->
<!--#include file="cookies.asp"-->
<%
set rs=conn.execute("select*from userlist")
set rs1=conn.execute("select * from color where id="&rs("color_id"))
s_bg1=rs1("bg1")
s_bg2=rs1("bg2")
s_bg3=rs1("bg3")
%>
<html>
<head>
<title>用户资料修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript" src="inc/modify.js"></script>
<body background="image/bg1.gif" topmargin="10">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="12"> </td>
</tr>
</table>
<div align="center" style="display:none"><font color="#FF0000"><strong>演示版不提供修改资料功能，只做演示用，请<a href="http://www.ywask.com/democode.html" target="_blank">下载源码</a>查看功能。
</strong></font>
<hr></div>
<table width="620" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="<%=s_bg1%>" class="f12">
<form name="form1" method="post" action="modify_save.asp" onSubmit="return Juge(this)">
<tr bgcolor="<%=s_bg2%>">
<td height="26" colspan="2"><div align="center">用 户 资 料 修 改</div></td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td width="154" height="26"><div align="center">用户帐号：</div></td>
<td width="463"> <font color="#FF0000"><%=rs("user")%></font></td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td height="26"><div align="center">用户密码：</div></td>
<td> <input name="pwd1" type="password" class="input" id="pwd1" size="30" maxlength="20">
密码不修改请留空</td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td height="26"><div align="center">确认密码：</div></td>
<td> <input name="pwd2" type="password" class="input" id="pwd2" size="30" maxlength="20">
</td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td height="26"> <div align="center">主页名称：</div></td>
<td> <input name="web" type="text" class="input" id="web" value="<%=rs("web")%>" size="30" maxlength="50">
* </td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td height="26"><div align="center">主页地址：</div></td>
<td> <input name="url" type="text" class="input" id="url" value="<%=rs("url")%>" size="30" maxlength="50">
* 比如: <font face="Georgia, Times New Roman, Times, serif"><a href="http://www.ywask.com" target="_blank">http://www.ywask.com</a></font></td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td height="26"><div align="center">界面风格：</div></td>
<td> <select name="color_id" class="button" id="color_id">
<%set tempcolor=conn.execute("select id,color_name,bg1 from [color]")
do while not tempcolor.eof%>
<option value="<%=tempcolor(0)%>" <%if rs("color_id")=tempcolor(0) then response.Write("selected")%> style="color:<%=tempcolor(2)%>"><%=tempcolor(1)%></option>
<%tempcolor.movenext
loop%>
</select>
* </td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td height="26"> <div align="center">每页留言：</div></td>
<td> <select name="everypage" class="button" id="everypage">
<option value="5">5条</option>
<option value="10">10条</option>
<option value="15">15条</option>
<option value="20">20条</option>
</select>
设置每页显示留言条数</td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td height="26"> <div align="center">留言审核：</div></td>
<td> <input name="ischeck" type="radio" value="1" <%if rs("ischeck")=true then response.Write("checked")%>>
开启
<input name="ischeck" type="radio" value="0" <%if rs("ischeck")=false then response.Write("checked")%>>
关闭 </td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td height="26"><div align="center">留言过滤：</div></td>
<td> <textarea name="forbid" cols="50" rows="10" class="input" id="url5"><%=rs("forbid")%></textarea>
* </td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td height="30" colspan="2"> <div align="center">
<input name="Submit" type="submit" class="button" value="确认修改">
<input name="Submit2" type="reset" class="button" value="重新填写">
<input name="Submit22" type="button" class="button" value="返回首页" onClick="window.location='index.asp'">
</div></td>
</tr>
</form>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<!--#include file="copy.asp"-->
<%call closeconn()%>