标题:修改页面打不开,请高手帮忙看一下代码
取消只看楼主
创可贴1
Rank: 1
等 级:新手上路
帖 子:15
专家分:3
注 册:2012-8-31
结帖率:100%
已结贴  问题点数:20 回复次数:3 
修改页面打不开,请高手帮忙看一下代码
<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 编辑 ]
搜索更多相关主题的帖子: admin include content html 
2012-09-21 09:50
创可贴1
Rank: 1
等 级:新手上路
帖 子:15
专家分:3
注 册:2012-8-31
得分:0 
回复 2楼 hu9jj
iis调试的时候,就是空白页一直到超时。我感觉像是死循环,但是我找不到哪里出错了。我之前修改了数据库,不知道是不是数据库的问题。请帮忙。
2012-09-24 16:59
创可贴1
Rank: 1
等 级:新手上路
帖 子:15
专家分:3
注 册:2012-8-31
得分:0 
回复 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>
2012-09-25 09:21
创可贴1
Rank: 1
等 级:新手上路
帖 子:15
专家分:3
注 册:2012-8-31
得分:0 
回复 7楼 hu9jj
已经好了,谢谢红土地!
2012-09-25 10:56



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-381794-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056095 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved