数据库修改问题谢谢
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<!--#include file="conn.asp"-->
'跨页带来的xmbh变量,用来输出项目编号等信息。
<%
dim xmbh_new
xmbh_new=""
if (request("xmbh")<>"") then
xmbh_new=request("xmbh")
end if
%>
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>项目详细信息</title>
<style type="text/css">
<!--
.STYLE1 {color: #0099FF}
-->
</style>
</head>
<style>
<!--
a{text-decoration:none;color:#000000}
a:hover{text-decoration:underline;color:#990066}
-->
</style>
<body>
<%
'判断是否讲session值带回
if session("user") ="" then
Response.Write("<SCRIPT language=JavaScript>alert('请先登录');this.location.href='login.asp';</SCRIPT>")
end if
select case Request("menu")
'申请模块
case "save"
set rs=server.CreateObject("adodb.recordset")
sql="select * from users where 用户名='"&session("user")&"'"
rs.open sql,conn,1,3
rs("项目名称")=request.Form("项目名称")
rs("项目编号")=request.Form("项目编号")
rs.update
rs.close
set rs=nothing
Response.Redirect("index_front.asp")
'项目表单模块
case else
%>
<table width="100%" height="100%" border="0">
<tr>
<td width="26%" height="109"> </td>
<td height="109" colspan="2"> </td>
</tr>
<td colspan="2">
<%
sql="select * from xmxx where 项目编号='"&xmbh_new&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<form id="form1" name="form1" method="post" action="?menu=save">
<table width="100%" border="1">
<tr>
<td colspan="2">项目名称:
<input name="项目名称" type="text" size="65" value="<%=rs("项目名称")%>" disabled="disabled" />
</td>
</tr>
<tr>
<td>项目编号:
<input name="项目编号" type="text" size="20" value="<%=rs("项目编号")%>" disabled="disabled" />
</td>
<td>所属机构:
<input name="所属机构" type="text" size="20" value="<%=rs("机构名称")%>" disabled="disabled" />
</td>
</tr>
<tr>
<td>机构编号:
<input name="机构编号" type="text" size="20" value="<%=rs("机构编号")%>" disabled="disabled" />
</td>
<td>负 责 人:
<input name="负责人" type="text" size="20" value="<%=rs("负责人")%>" disabled="disabled" />
</td>
</tr>
<tr>
<td>完成周期:
<input name="完成周期" type="text" size="20" value="<%=rs("完成周期")%>" disabled="disabled" />
</td>
<td>项目资金:
<input name="项目资金" type="text" size="20" value="<%=rs("项目资金")%>" disabled="disabled" />
</td>
</tr>
<tr>
<td>项目状态:
<input name="项目状态" type="text" size="20" value="<%=rs("项目状态")%>" disabled="disabled" />
</td>
<td>项目类别:
<input name="项目类别" type="text" size="20" value="<%=rs("项目类别")%>" disabled="disabled" />
</td>
</tr>
<tr>
<td colspan="2">项目内容:</td>
</tr>
<tr>
<td colspan="2">
<textarea name="项目内容" cols="100" rows="15" disabled="disabled"><%=rs("项目内容")%></textarea>
</td>
</tr>
<tr>
<td bordercolor="#FFFFFF" align="right">
<input name="申请" type="submit" id="申请" value="申请" />
</td>
<td bordercolor="#FFFFFF">
<input name="返回" type="reset" id="返回" value="返回" />
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<% end select
%>
</body>
</html>
这个页面之前是也项目名称的列表页面。点击查看之后,跳转到该页面。该页面有一个申请。想通过申请按钮,把这个页面显示项目名称和项目编号修改到users表中该用户的项目名称和项目编号的字段中。完成对这个用户表的修改。但是,我做了这个页面,发现。不会报错。但是实现不了功能。不知道为什么。麻烦高手给一些帮助。谢谢!!!
个人觉得session带回了值。因为我如果不通过login.asp进入该页面的话,就会提示我“请先登录”。
麻烦大家了!谢谢各位!!!