关于asp中的数据库连接问题
我写了一个表单就是用来向数据库中添加数据的 action=post.asp method=post
然后再post.asp当中我又通过request.form获取了相应的值,然后添加的数据库当中
所有的代码如下
------------------------------------conn.asp-----------------------------
<%
dim db
const databasetype="access"
db="data\meiyijixie.mdb"
dim connstr
dim conn
ConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
set conn=server.createobject("ADODB.Connection")
conn.open connstr
'sub CloseConn()
' On Error Resume Next
' If IsObject(Conn) Then
' conn.close
' set conn=nothing
' end if
'end sub
%>
------------------------------------post.asp------------------------------------------
<!--#include file=conn.asp-->
<%
dim name,tel,email,content
name=request.form("name")
email=request.form("email")
tel=request.form("tel")
content=request.form("content")
qq=request.form("qq")
if request.form("name")="" then
response.write"<script language='javascript'> alert('姓名不可以为空!');history.back('zxly.asp');</script>"
response.end
end if
if content="" then
response.write"<script language='javascript'>alert('留言内容不能为空!');history.back('zxly.asp');</script>"
response.end
end if
if tel="" then
response.write"<script language='javascript'>alert('请留下你的联系方式!');history.back('zxly.asp');</script>"
end if
if email="" then
response.write"<script language='javascript'> alert('请留下你的联系方式!');history.back('zxly.asp');"
end if
%>
<%
set rs=server.createobject("ADODB.RecordSet")
sql="select *from liuyan where id is null"
rs.open sql,conn,1,3
rs.addnew
rs("name")=name
rs("tel")=tel
rs("email")=email
rs("content")=content
rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>alert('留言提交成功');history.back('index.asp')</script>"
response.end
%>
然后出现的结果是:
Couldn't load file: F:\cs
相关文档:
今天一个ASP项目发现 化境上传组件上传BMP图片不成功,提示不允许操作,经查因为图片太大,以下解决方法:
在服务里关闭iis admin service服务
找到windows\system32\inesrv\下的metabase.xml,
打开,找到ASPMaxRequestEntityAllowed &n ......
public static void SetTreeNode(System.Web.UI.WebControls.TreeView treeRolePopedom, string rolecode,out string errMsg)
{
int k = 0;
& ......
试验了好久,终于搞定了。
首先,必须有错误继续进行的声明On Error Resume Next
然后尝试简历jmail实例:
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
对实例做出判断,如果组件没有安装成功, ......
这段代码的功能是:将一个数组打乱顺序,显示出来,让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......