小弟我的asp程序异常
发布时间:2010-05-20 14:01:29 文章来源:www.iduyao.cn 采编人员:星星草
我的asp程序错误
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim ID
dim rs
dim sql
dim Conn
ConnStr="driver={sql server};server=127.0.0.1;database=tire;uid=sa;pwd=111111"
set Conn=server.createobject("adodb.connection")
Conn.Open ConnStr
ID=request.QueryString("产品编号")
Set rs=server.CreateObject("ADODB.recordset")
sql="select * from chanpin3 where 产品编号='"& ID &"'"
rs.Open sql,Conn,1,1
if rs.EOF or rs.BOF then
Response.Write("<hr>数据库中暂无资料!")
Else
do while not rs.EOF or rs.BOF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改信息</title>
<style type="text/css">
<!--
.STYLE 7{font-size:12px; font-family:"宋体";}
.STYLE 8{font: bolder "宋体"; font-size:12px; color:#990000;}
.STYLE 9{font-size:12px; color:#990000; font-weight:bold;}
.STYLE 10{font-size:12px; color:#FFFFFF; font-weight:bold;}
-->
</style>
</head>
<body>
<div align="center" class="STYLE 7">
<p align="left"><font size="+6"><font face="宋体"><font color="#0000FF" face="幼圆"><img src="head_nJwL_41440b206096.jpg" width="74" height="104" align="middle">产品信息管理系统</font></font></font></p>
<form action='gain.asp?产品编号=<%=rs("产品编号")%>' method="post" name="form1">
<table width="66%" border="1" align="center" bordercolor="#0066FF">
<tr>
<td height="25" colspan="2" background="head_9qb2_41903n206096.jpg"><div align="center"><span class="STYLE 2">修改产品信息</span></div></td></tr>
<tr bordercolor="#FFFFFF"><td width="20%"><div align="center"><span class="STYLE 8">产品编号:</span></div></td>
<td width="80%"><div align="left"><span class="STYLE 7">
<input name="text1" type="text" class="STYLE 7" id="text1" value="<%=rs("产品编号")%>" readonly="false">
</span></div></td></tr>
<tr bordercolor="#FFFFFF">
<td><div align="center"><span class="STYLE 8">产品名称:</span></div></td>
<td><div align="left"><span class="STYLE 7"><input name="text2" type="text" class="STYLE 7" id="text2" value="<%=rs("产品名称")%>" size="40">
</span></div></td></tr>
<tr bordercolor="#FFFFFF"><td><div align="center"><span class="STYLE 8">产品型号:</span></div></td>
<td><div align="left"><input name="text3" type="text" class="STYLE 7" id="text3" value="<%=rs("产品型号")%>" size="50">
</div></td></tr>
<tr bordercolor="#FFFFFF"><td><div align="center"><span class="STYLE 8">制造商:</span></div></td>
<td><div align="left"><input name="text4" type="text" class="STYLE 7" id="text4" value="<%=rs("制造商")%>" size="50">
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
页面下载功能的实现
想做一个下载功能的实现,点击页面中的下载按钮,就可以实现将页面的文字保存到word里进行下载。
------解决方...
-
Vbs的SAFRCFileDlg.FileSave对象不能创建,如何解决?
VBScript code
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
S...
-
关于文件夹加密的一段代码,麻烦来看下
我想给文件夹加个密,在网上找到这段代码:
<script language=vbscript>
do
i=inputb...
-
关于sql中的第二排序问题
现在数据库中有两个字段,a和b select * from table1 order by b asc 只能对b进行升序排列,怎么写这个sql...
-
vbscript 中 如何把数组 作为 函数的参数 并在函数里循环使用
vbscript 中 如何把数组 作为 函数的参数 并在函数里循...
-
VBS添加任务计划的问题
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!.rootcimv2")
Set objNewJ...
-
VC 获取char数组左右边个数
请问各位老大在(非MFC工程)如何获取char数组左右边个数并把它贬值个另外个数组
char ls_szH[60];
ch...
-
Vbscript(3) Adding Intelligence
Adding Intelligence
If...Then
Just the Steps
To implement If...Then
1.
On ...
-
VBScript隐藏html按钮
请教各位,如何在vb脚本中隐藏一个html按钮?
因为我要做打印,打印的时候先隐藏按钮,打印完成再显示.这样的....
-
vbscript-页面 打开EXCEL
如何在一个(vbscript) 页面上用一个BUTTON按钮打开一个文件夹里任意一个后续名为.xls的EXCEL表格
------...