表单提交系统,表单提交模板
我做一个ASP人员信息表单提交系统,我想在后台查询出来的信息可以导出EXCEL来?求导出代码! 非常感谢!!
%
' 链接数据库的代码省略,其他的代码你自己修改下;字段什么的 ,不懂的再联系我吧
if request("action")="goto" then
dbpath="../"
dim filename,fs,myfile,x,m,n,o,link
Set fs = server.CreateObject("scripting.filesystemobject")
Set rs = Server.CreateObject("ADODB.Recordset")
session("sql") = "select model,ph,fz,changs,num,danwei,s_price,huobi,gongying,shui,S_content,S_time from In_SearchPrice where 1=1 order by S_time desc,id desc"
rs.Open session("sql"),conn,1,1
n=1
'==================================================================
'==============================================================建立excel文件系统
filename = Server.MapPath("excel/询价记录"n".xls") '这个是为了方便,新建一个CAR的文件夹,这个可以自己设啦
if fs.FileExists(filename) then'如果文件存在,覆盖它。
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
'========================================================================
dim strLine,responsestr
strLine=""
dim work,j,i
str="型号|批号|封装|厂商|数量|单位|询价|货币类型|供应商|含税|描述|日期"
work=split(str,"|")
j=ubound(work)
i=0
o=0
do while not ij
strLine= strLine work(i) chr(9)
i=i+1
loop
myfile.writeline strLine
Do while Not rs.EOF
o=o+1
m=20000
strLine=""
for each x in rs.Fields
strLine= strLine x.value chr(9)
if o=m*n then
n=n+1
filename = Server.MapPath("car/CarTable"n".xls") '这个可以自己设啦
if fs.FileExists(filename) then'如果文件存在,覆盖它。
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
end if
next
myfile.writeline strLine
rs.MoveNext
loop
rs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing
ExcelPath="excel/询价记录"n".xls"
response.Write "导出成功"
response.write("a href='" server.URLEncode(ExcelPath) "'font=red下载/font/a")
end if
%
有高人帮做个简单表单提交系统吗?急求
-------------以下内容存为 提交.htm ----------
html xmlns=""
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312" /
title提交表单/title
/head
body
form id="form6" name="form6" method="post" action="save.asp"
p姓名
input name="name" type="text" id="name" /
/p
p
性别
select name="sex" id="sex"
option value="0"男/option
option value="1"女/option
/select
/p
p学历
select name="xl" id="xl"
option value="小学" selected="selected"小学/option
option value="中学"中学/option
option value="大专"大专/option
option value="本科"本科/option
option value="本科以上"本科以上/option
/select
/p
p数量
select name="sl" id="sl"
option value="200" selected="selected"200/option
option value="500"500/option
option value="100"1000/option
option value="2000"2000/option
option value="3000"3000/option
/select
/p
p邮箱
input name="mail" type="text" id="mail" /
/p
p其他说明
textarea name="other" id="other"/textarea
/p
input type="reset" name="Submit2" value="重设" /
input type="submit" name="Submit" value="提交" /
/form
p? /p
/body
/html
------------以下内容存为 save.asp--------------------%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%
!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""
html xmlns=""
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312" /
title无标题文档/title
/head
%name1=request.Form("name")
sex1=request.Form("sex")
xl1=request.Form("xl")
sl1=request.Form("sl")
mail1=request.Form("mail")
other=request.Form("other")
starttime=timer()
StrSQL="DBQ="+server.mappath("/baidu/1.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
set rs=server.createobject("adodb.recordset")
sql="select * from tijiao"
rs.open sql,conn,3,2
rs.addnew
rs("name")=name1
rs("sex")=sex1
rs("xl")=xl1
rs("sl")=sl1
rs("mail")=mail1
rs("other")=other
rs("time")=now()
rs.update
rs.close
set rs=nothing
Response.Write("提交成功")
%
body
/body
/html
------------------------------------
把以上两个文件放到网页根目录下的 baidu 文件夹中
在baidu文件夹中建一个MDB数据库 表名为tijiao
字段有
name
sex
sl
xl
other
time
类型全部为文本
应该就可以了
不行的话站内短信我
以上内容为100分
至于在线看数据,需增加分数
我提交html表单后,显示系统繁忙,怎么办?
显示系统繁忙,
我猜不是html / js问题
可能真的是伺服器方面的人才能解决
表单提交中get和post方式的区别
一,在Form里面,可以使用post也可以使用get。它们都是method的合法取值。但是,post和get方法在使用上至少有两点不同:
1、get方法通过URL请求来传递用户的输入。post方法通过另外的形式。
2、get方式的提交你需要用Request。QueryString来取得变量的值,而post方式提交时,你必须通过Request.Form来访问提交的内容。
二,get与post的区别2
get:是以实体的方式得到由请求URI所指定资源的信息,如果请求URI只是一个数据产生过程,那么最终要在响应实体中返回的是处理过程的结果所指向的资源,而不是处理过程的描述。
post:用来向目的服务器发出请求,要求它接受被附在请求后的实体,并把它当作请求队列中请求URI所指定资源的附加新子项,post被设计成用统一的方法实现下列功能:
1:对现有资源的解释。
2:向电子公告栏、新闻组、邮件列表或类似讨论组发信息。
3:提交数据块。
4:通过附加操作来扩展数据库。
扩展资料:
用法
Post()函数用于向窗口发送非PowerBuilder预定义事件的消息,这个窗口可以是PowerBuilder应用的窗口,也可以是其它应用的窗口。Post()函数把发送的消息放置在指定窗口消息队列的尾部,然后返回到应用程序中,它并不等待相应事件事件处理程序的执行。
这一点与Send()函数不同,Send()函数直接触发指定窗口相应的事件,执行事件处理程序后返回到调用应用中。
因此,我们说Post()函数采用的是异步方式,Send()函数采用的是同步方式。Post()函数的参数handle指定接收消息的窗口句柄,对PowerBuilder窗口来说,使用Handle()函数可以得到该句柄。
对其它应用程序的窗口来说,可以调用系统API函数查找窗口并得到相应窗口的句柄。如果应用程序要邮寄PowerBuilder定义事件(包括预定义事件和用户定义事件),那么使用PostEvent()函数既简单有方便。
当应用程序在long参数位置指定一个字符串时,Post()函数复制一个该字符串的副本,然后将副本的地址传送给指定窗口。
参考资料来源:百度百科-post