标题:各位看看
只看楼主
想象力
Rank: 1
等 级:新手上路
帖 子:78
专家分:0
注 册:2007-6-8
 问题点数:0 回复次数:6 
各位看看

这是我写的一个东西
可是要求要有个查看的功能
该怎么完成啊
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息表</title>
<style type="text/css">
<!--
.style1 {
font-size: medium;
font-family: "Times New Roman", Times, serif;
}
-->
</style>
</head>
<body>
<FORM METHOD="POST" ACTION="Post.asp">


<div align="center" class="style1">
<h1> 竞争对手信息调查
</h1>
<form name="form1" method="post" action="">
<p>所供单位:
<input name="textfield6" type="text" size="25">
</p>
<p>规格型号

<textarea name="textarea"></textarea>
</p>
<p>数量:
<input name="textfield3" type="text" size="15">
</p>
<p>金额:
<input name="textfield4" type="text" size="15">
</p>
<p>占需求量的%:
<input name="textfield5" type="text" size="15">
</p>
<p>
<input type="submit" name="Submit" value="提交">
</p>
</form>
<p>&nbsp; </p>
</div>
</body>
</html>

搜索更多相关主题的帖子: blank content PUBLIC target style 
2007-06-12 11:04
SkyGull
Rank: 5Rank: 5
来 自:浙江杭州
等 级:贵宾
威 望:13
帖 子:839
专家分:324
注 册:2007-6-7
得分:0 
晕....又来乱啊..

[IMG]http://bbs.bc-cn.net/images/post/code.gif[/IMG]
点这个图标.再发出来
2007-06-12 11:14
想象力
Rank: 1
等 级:新手上路
帖 子:78
专家分:0
注 册:2007-6-8
得分:0 
[CODE]

objRS.AddNew
objRS("所供单位")=request.form("sgdw")
objRS("规格型号")=request.form("ggxh")
objRS("数量")=request.form("sl")
objRS("金额")=request.form("je")
objRS("占需求的所需%")=request.form("zsx")
objRS.Update
objRS.close

[/CODE]

为什么写不进数据库 啊
2007-06-12 12:33
谁与争疯
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:海南省
等 级:版主
威 望:188
帖 子:15070
专家分:17503
注 册:2007-4-22
得分:0 
出错提示什么了?

论坛是我家灌水靠大家
2007-06-12 12:45
lq7350684
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:5089
专家分:98
注 册:2006-11-6
得分:0 
代码帖多一点,还有把出错信息也帖出来.
2007-06-12 12:47
想象力
Rank: 1
等 级:新手上路
帖 子:78
专家分:0
注 册:2007-6-8
得分:0 
没有出错提示
就是不能在GustBook.asp中显示我写在表单上的信息
2007-06-12 12:52
想象力
Rank: 1
等 级:新手上路
帖 子:78
专家分:0
注 册:2007-6-8
得分:0 

[CODE]

<!-- #include file="ADOFunctions.inc" -->
<%
'读取用来输入新留言的表单字段数据
sgdw = Request("sgdw")
ggxh = Request("ggxh")
sl = Request("sl")
je = Request("je")
zsx = Request("zsx")


'从数据表中读取记录并存放在Recordset对象中
sqll="select * from xiaoshou"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open sqll,objConn,adOpenDynamic, adLockOptimistic

'新增记录

objRS.AddNew
objRS("所供单位")=request("sgdw")
objRS("规格型号")=request("ggxh")
objRS("数量")=request("sl")
objRS("金额")=request("je")
objRS("占需求的所需%")=request("zsx")
objRS.Update
objRS.close


'将网页重新导入
Response.Redirect "GuestBook.asp"

'关闭数据库连接并释放对象
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

%>

这是post.asp的内容


<table border="1" width="100%" height="174">

<td width="16%" height="28">
<p align="center">所供单位</td>
<td width="16%" height="28">
<p align="center">规格型号</td>
<td width="16%" height="28">
<p align="center">数量</td>
<td width="16%" height="28">
<p align="center">金额</td>
<td width="16%" height="28">
<p align="center">占需求的所需%</td>


</tr>

<% For I = 1 To objRS.PageSize
If objRS.EOF Then Exit For '若到记录结尾就结束For循环
%>

<tr>
<td height="114"><%=objRS("所供单位")%></td>
<td><%=objRS("规格型号")%></td>
<td><%=objRS("数量")%></td>
<td><%=objRS("金额")%></td>
<td><%=objRS("占需求的所需%")%></td>


</tr>


<%
objRS.MoveNext
Next
%>



</table>

<%
'关闭数据库连接并释放对象
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

</body>
</html>

这是GustBook.asp的内容




[/CODE]

2007-06-12 12:55



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




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

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