易截截图软件、单文件、免安装、纯绿色、仅160KB

关于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 化境上传组件上传不成功 提示不允许操作

今天一个ASP项目发现 化境上传组件上传BMP图片不成功,提示不允许操作,经查因为图片太大,以下解决方法:
在服务里关闭iis   admin   service服务   
    
找到windows\system32\inesrv\下的metabase.xml,   
打开,找到ASPMaxRequestEntityAllowed &n ......

asp:treeview

   public static void SetTreeNode(System.Web.UI.WebControls.TreeView treeRolePopedom, string rolecode,out string errMsg)
        {
            int k = 0;
       & ......

asp空间如何判断jmail组件已经安装?是否支持呢?


    试验了好久,终于搞定了。
    首先,必须有错误继续进行的声明On Error Resume Next
    然后尝试简历jmail实例:
Dim JMail
    Set JMail=Server.CreateObject("JMail.Message")
    对实例做出判断,如果组件没有安装成功, ......

asp数组随机排序

这段代码的功能是:将一个数组打乱顺序,显示出来,让每一次显示的顺序都不一样。
<%
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 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号