主程序代码如下:
--------------------------------------------------------------------------------
'定义所有需要使用的变量
Dim strFilename,S,Fso,F,intFilelength
strFilename = Server.MapPath(Trim(Request("File")))
Response.Buffer = True
Response.Clear
Set S = Server.CreateObject("ADODB.Stream")
S.Open
S.Type = 1
On Error Resume Next
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Not Fso.FileExists(strFilename) Then
Response.Write("<h1>Error:</h1>"&strFilename&"你要下载的文件不存在!<p>")
Response.End
End If
Set F = Fso.GetFile(strFilename)
intFilelength = F.Size '获取文件大小
S.LoadFromFile(strFilename)
If Err Then
Response.Write("<h1>Error: </h1>Unknown Error!<p>")
Response.End
End If
Response.AddHeader "Content-Disposition","attachment;filename="&F.name
Response.AddHeader "Content-Length",intFilelength
Response.CharSet = "GB2312"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite S.Read
Response.Flush
S.Close
Set S = Nothing
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("t.mdb")
set rs=Server.CreateObject("ADODB.recordset")
Sql="Select * From QA where id="&clng(id)
rs.open sql,conn,3,3
rs.update"sign1",s
rs.update"d1",now()
rs.update"a1",session("name")
rs.close
conn.close
next
2007, December 10, 2:12 PM
有能直接使用的css表格圆角代码吗?
2007, December 11, 4:44 PM
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/test/UpLoadClass.asp,行 130 HTTP/1.1 400 Bad Request Content-Type: text/html Date: Tue, 11 Dec 2007 08:45:06 GMT Connection: close Content-Length: 35
Bad Request (Invalid Verb)
2007, December 11, 5:18 PM
2007, December 12, 9:27 AM
http://lixf.net/?action=show&id=309
上传的信息里面是否有不符合正确的东西?
我的邮件 calchas@126.com
把代码发给我看看
2007, December 12, 11:53 AM
在IE进行文档链接时,如果遇到OLE支持的文档,IE会自动调用相应程序打开它,有时候这种功能并不是我们所需的,虽然我们可以提醒用户用鼠标右键-->"目标另存为...."命令来下载文档,但这样毕竟不太友好,本文描述了利用FSO及Stream方法实现IE直接下载文档。
主程序代码如下:
--------------------------------------------------------------------------------
'定义所有需要使用的变量
Dim strFilename,S,Fso,F,intFilelength
strFilename = Server.MapPath(Trim(Request("File")))
Response.Buffer = True
Response.Clear
Set S = Server.CreateObject("ADODB.Stream")
S.Open
S.Type = 1
On Error Resume Next
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Not Fso.FileExists(strFilename) Then
Response.Write("<h1>Error:</h1>"&strFilename&"你要下载的文件不存在!<p>")
Response.End
End If
Set F = Fso.GetFile(strFilename)
intFilelength = F.Size '获取文件大小
S.LoadFromFile(strFilename)
If Err Then
Response.Write("<h1>Error: </h1>Unknown Error!<p>")
Response.End
End If
Response.AddHeader "Content-Disposition","attachment;filename="&F.name
Response.AddHeader "Content-Length",intFilelength
Response.CharSet = "GB2312"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite S.Read
Response.Flush
S.Close
Set S = Nothing
2007, December 18, 8:51 AM
2007, December 18, 9:12 AM
Const strQuest = "1,4,5"
tmpArr=Split(strQuest ,",")
1 是批量提交修改,也就是说用SQL语言去同时修改。
2 是通过根据选择的项目使用循环去修改。
sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"
2007, December 18, 9:21 AM
2 用在修改成不同的值时用,比较常用。
2007, December 18, 9:30 AM
Sql="update 数据表 set 需要更新的字段 where 选中id的项目
2007, December 18, 9:45 AM
2007, December 18, 9:55 AM
形成一个indexid的数组,存放选中位置对应的id?
这样可以吗?
2007, December 18, 10:51 AM
2007, December 18, 11:20 AM
我做了一下,修改单个的时候可以的!
我用上面的方面,选多个行一起改的时候就更新代码的网页出错了!
2007, December 18, 12:12 PM
对象打开时,不允许操作。
/1/update2.asp,行 32
2007, December 18, 12:24 PM
对象打开时,不允许操作。
这个问题已经解决了
但是!
我用的更新数据库格式是:
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("t.mdb")
set rs=Server.CreateObject("ADODB.recordset")
Sql="Select * From QA where id="&clng(id)
rs.open sql,conn,3,3
rs.update"sign1",s
rs.update"d1",now()
rs.update"a1",session("name")
rs.close
conn.close
next
新问题!多选批量修改的时候,第一项可以更新的,可是第二行开始就内容就是空白了……
2007, December 20, 8:41 AM
2007, December 20, 10:12 AM
………………一个细节问题……………………获取值的时候把空格给获取进来了!!!
2007, December 20, 10:22 AM
第一次用户登陆进来选择的时候缺省的是——请选择——
当用户选择好了以后,第二次登陆的时候缺省的是他选择的那个值,是不是也是用数据库缓存一下的?
2007, December 20, 10:31 AM
2007, December 20, 1:16 PM
假设 sex 的值是从数据库里面读取出来的性别的值:
<select name='xx'>
<option>请选择</option>
<option value='男' <% if sex=1 then%><selected><%end if%>>男</option>
<option value='女' <% if sex=1 then%><selected><%end if%>>女</option>
</select>