注册 登录
编程论坛 ASP技术论坛

修改页面打不开,请高手帮忙看一下代码

创可贴1 发布于 2012-09-21 09:50, 1141 次点击
<a href='javascript:openScript("xg.asp?id=<%=rs("id")%>",420,310)'> 修改</a>

xg.asp代码如下
<!--#include file="Conn.asp"-->
<!--#include file="admin/session.asp"-->
<%

id=request.QueryString("id")
if id="" then response.Redirect("index.asp")
set rs = server.CreateObject("adodb.recordset")
exec="select * from user where id="&id
rs.open exec,conn,1,1
%>
<%do while not rs.eof%>
<html>
<head>
<title>修改系统</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">

<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body background="images/tbg.JPG">
<body bgcolor="#ffffff" text="#000000" onunload="window.opener.location.reload();">
<p align="center"><font face="宋体" size="2" color="#ff0000">职工修改模块</font><font size="2"><br><br>

  </font><form action=usersave.asp?id=<%=rs("id")%>  method="post">
  <table width="71%" border="0" cellpadding="0" cellspacing="0" align="center" id="table1">
    <tr>
      <td align="left">
        <p align="justify"><font size="2">姓名:</font></td>
      <td>
        <input type="text" name="姓名" size="20" value="<%=rs("姓名")%>"><font size="2"> </font></td>
    </tr>
    <tr>
      <td align="left">
        <p align="justify"><font size="2">工号:</font></td>
      <td>
        <input type="text" name="工号" size="20" value="<%=rs("工号")%>"><font size="2"> </font></td>
    </tr>
    <tr>
      <td align="left">
        <p align="justify"><font size="2">手机号:</font></td>
      <td>
        <input type="text" name="手机" size="20" value="<%=rs("手机")%>"><font size="2"> </font></td>
    </tr>
    <tr>
      <td align="left">邮箱:</td>
      <td>
        <input type="text" name="邮箱" size="20" value="<%=rs("邮箱")%>"></td>
    </tr>
    <tr>
      <td align="left"><font size="2">部门:</font></td>
      <td>
        <input name="部门" size="20" value="<%=rs("部门")%>"></td>
    </tr>
    <tr>
      <td align="left"><font size="2">备注:</font></td>
      <td>
        <input name="备注" size="20" value="<%=rs("备注")%>"></td>
    </tr>
  <input name="id" size="20" value="<%=rs("id")%>" type=hidden>
    </tr><%
'conn.Close
set conn = nothing
set rs2 = nothing
rs.movenext
loop
%>
    <tr>
      <td colspan="2" height="26">
        <p align="center">
        <br>
        <input type="submit" name="submit" value="修改"><font size="2">&nbsp;&nbsp;&nbsp;&nbsp;
        </font> <input type="reset" name="submit2" value="重写"><br>
 </td>
    </tr>
 </table>
</form>
 
</body>
</html>

[ 本帖最后由 创可贴1 于 2012-9-21 10:08 编辑 ]
10 回复
#2
hu9jj2012-09-23 19:33
打不开页面的提示是什么?
#3
netlin2012-09-23 20:50
这种动态页面,没有调试环境,好难排错的!
#4
bcmailesi2012-09-24 09:31
关键是首先要看提示何种错误信息!
#5
青春无限2012-09-24 14:17
请问你的代码用的什么编译器啊
#6
创可贴12012-09-24 16:59
回复 2楼 hu9jj
iis调试的时候,就是空白页一直到超时。我感觉像是死循环,但是我找不到哪里出错了。我之前修改了数据库,不知道是不是数据库的问题。请帮忙。
#7
hu9jj2012-09-24 20:57
把后面的循环部分注释掉,仅显示一条记录试试。
#8
cngdjbl2012-09-24 21:08
学习曾经遇到过同样的问题,,到最后都没解决。期待完整答案
#9
创可贴12012-09-25 09:21
回复 7楼 hu9jj
谢谢,真是一语点醒梦中人,我一个一个试了一下,结果发现是下面代码的问题,把它一去掉很顺利,可是这一段怎么修改呢?请指教。
<td height="7" align="left">为哪个组组长:</td>
      <td height="7">
       <% SQL="select distinct 部门 from user"
set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.open SQL,conn,1,3
if not rs2.bof then
%><select name="部门管理" id="select7"> <% if rs("部门管理")<>"" then%><option value="<%=rs("部门管理")%>" selected><%=rs("部门管理")%></option>
<%else%><option value="" selected>请选择</option>
<%end if%>
<% do while not rs2.eof %>
<option value="<%=rs2("部门")%>"><%=rs2("部门")%></option>
<% rs2.movenext loop %>
<% if rs("部门管理")<>"" then%><option value="" >↓降为普通员工↓</option>
<%else%>
<%end if%>
</select>
<% else
'response.write("sorry, no data found.")
end if
%>     </td>
#10
创可贴12012-09-25 10:56
回复 7楼 hu9jj
已经好了,谢谢红土地!
#11
zhangyao32872012-09-26 15:49
<%do while not rs.eof%>
这个放在<html>前面?
1