怎么用asp做修改信息页面呀

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

用asp做修改密码页面应该怎么写呀？需要做几个页面呀？请各位高手指点。或者帮我看看我写的代码有什么错误，以下是我写的代码：<table border=0 align=center cellpadding="0" cellspacing="0">

<tr>

<td></tr></td>

</tr>

<% Set Rs = Server.CreateObject("ADODB.Recordset")

Sql = "Select * From userinfo Where name = '"&Session("name")&"'"

Rs.Open Sql,conn,2,3

%>

<tr></tr>

<tr>

<td><table width=100% border=0 cellpadding="0" cellspacing="1" id="Table1">

<tr align=center>

<td width=22%><font color="#FFFFFF"><b>

<% Response.Write Session("name") %>

</b></font></td>

</tr>

<form action="memberclub?action=retakecipher&name=<% Session("name") %>" method="post" name=form1 id="form1">

<tr>

<td height=25 align=right bgcolor="#FFFFFF">密码：</td>

<td width=78% bgcolor="#FFFFFF">

<input type=text name=pass value="<%=Rs("pass")%>" /></td>

</tr>

</form>

</table></td>

</tr>

<% Rs.Close

Set Rs = nothing

%>

<tr>

<td height=30 align=center><input type=submit name=Submit value="确定" />

<input type=reset name=reset value="重置" /></td>

</tr>

<% If Request("action") = "retakecipher" Then

Call SaveChange()

End If

%>

<% Sub SaveChange()

Dim pass

pass = Trim(Request.Form("pass"))

If qq <>"" And IsNumeric(qq) = false Then

Response.Write "<Script>alert('输入的QQ号码只能为数字！')history.go(-1)</Script>"

Response.End

Else

Set Rs = Server.CreateObject("ADODB.Recordset")

Sql = "Select * From userinfo Where name = '"&Session("name")&"'"

Rs.Open Sql,conn,2,3

Rs("pass") = pass

Rs.UpDate

id = Rs("id")

Rs.Close

Set Rs = nothing

End If

Response.Redirect "memberclub"

End Sub

%>

<tr>

<td><hr size="1" noshade="noshade" /></td>

</tr>

</table>请说的详细点，因为我刚学asp，还不太懂，谢谢各位了！

解析:

晕死.贴这么多代码.

给你句SQL语句.

update [表名] set 字段名=值 where 条件

给你个思路吧：

根据已知条件，进行查询，在页面中输出查询结果记录集。

在每条记录输出时添加一个“编辑”的 超链接 ，超链接地址连接到修改页面，在连接中携带记录的id进行跳转。

在跳转到的目标页，获取id，根据当前id再进行查询数据库记录，赋予到相关表单value。

编程表单提交过程即可修改。

如果涉及到图片修改，考虑图片是存储在数据库记录中，还是物理文件存储，如果存储在数据库中直接提交表单修改即可，如果是以物理文件保存的，那就在修改记录的时候同时删除修改前的图片。

---