关于存储过程问题(高分求解,分不够可以再给)

最新推荐文章于 2024-12-03 23:00:46 发布

原创最新推荐文章于 2024-12-03 23:00:46 发布 · 1.6k 阅读

本内容遵循CC 4.0 BY-SA版权协议


	登录.. [注册] 忘记密码注销登录

csdn.net

SUN

IBM

FAQ

2005.10.12 2005.1.8

CSDN - 技术社区 - Web 开发 ASP问题
	回复 \| 收藏此页 \| 专题 \| 公告 \| 管理 \| 保存 \| 关闭窗口

主　　题：		关于存储过程问题(高分求解,分不够可以再给)
作　　者：		ukinxu (xxq)
等　　级：
信誉值：		100
所属社区：		Web 开发 ASP
问题点数：		100
回复次数：		9
发表时间：		2005-01-08 15:33:36

回复人： alexzhang00(星级潜水员) ( 两星(中级)

) 信誉：105

2005-01-08 15:58:00

得分: 0

Top

回复人： falconshh(香椿炒鸡蛋(学习java...)) ( 五级(中级)

) 信誉：100

2005-01-08 16:01:00

得分: 0

'============执行注册存储过程==============
call openDB()
Set Comm=server.CreateObject("ADODB.Command")
Set Comm.ActiveConnection=objconn
Comm.CommandText="proc_userRegister"
Comm.Parameters.Append Comm.CreateParameter("@UserName",200,1,20,UserName)
Comm.Parameters.Append Comm.CreateParameter("@UserPassword1",200,1,20,UserPassword1)
Comm.Parameters.Append Comm.CreateParameter("@PassQuestion",200,1,50,PassQuestion)
Comm.Parameters.Append Comm.CreateParameter("@PassAnswer",200,1,50,PassAnswer)
Comm.Parameters.Append Comm.CreateParameter("@NickName",200,1,20,NickName)
Comm.Parameters.Append Comm.CreateParameter("@Sex",16,1,1,Sex)
Comm.Parameters.Append Comm.CreateParameter("@reValue",200,2,20)
Comm.execute

reValue = Comm("@reValue") //返回值

set Comm.ActiveConnection=nothing
set Comm=nothing
call closeDB()
'=========================================
'系统错误处理
if reValue="Error" or err.number <> 0 then
	MsgError()
	Response.end
elseif reValue="haveReg"   then
	response.write "用户名或昵称已存在！"
else
	response.write reValue
end if

Top

回复人： falconshh(香椿炒鸡蛋(学习java...)) ( 五级(中级)

) 信誉：100

2005-01-08 16:02:00

得分: 0

Top

回复人： ukinxu(xxq) ( 一级(初级)

) 信誉：100

2005-01-08 16:09:00

得分: 0

Top

回复人： whb147(苦乐随缘) ( 一星(中级)

) 信誉：100

2005-01-08 16:41:00

得分: 0

Top

回复人： alexzhang00(星级潜水员) ( 两星(中级)

) 信誉：105

2005-01-08 17:18:00

得分: 0

Top

回复人： surferc((大妹子，缘分啊！)) ( 四级(中级)

) 信誉：100

2005-01-08 17:20:00

得分: 0

Top

回复人： surferc((大妹子，缘分啊！)) ( 四级(中级)

) 信誉：100

2005-01-08 17:26:00

得分: 0

asp脚本这里默认你使用的是sql server

<%
dim conn 
dim connstr
on error resume next
connStr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=IP地址; Initial Catalog=数据库名称; User ID=用户名; Password=密码"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

dim rs
dim sql
set rs=server.createobject("adodb.recordset")

dim act,Sname,Datee,RsName,RsData,xlsName
act=Trim(request("act"))
Sname=Trim(request.form("Sname"))
Datee=Trim(request.form("Datee"))

if act="Search" and Sname<>"" and Datee<>"" and IsDate(Datee)=true then
call SearchDate(Sname,Datee)
end if

'查询
sub SearchDate(Sname,Datee)

sql="exec sp_search '"&Sname&"','"&Datee&"'"   '-->招行存储过程
	rs.open sql,conn,1,1
         '这是得到表的列名
	if not rs.eof then
		RsName=RS(0).Name
		for i = 1 to RS.Fields.Count - 1 
			RsName=RsName&chr(9)&RS( i ).Name
		next 
		RsName=RsName&chr(13)
		RsData=RsName&Rs.GetString(2,-1,,," ")
		call CreateExcel()  '生成xsl
	end if
	rs.close
	set rs=nothing
end sub

'生成excel
sub CreateExcel()

Dim fs,fl,path,ntime
	Set fs=Server.CreateObject("scripting.filesystemobject")
	path="/test/"
	ntime=cstr(Now)
	ntime=Replace(ntime,":","_")
	ntime=Replace(ntime," ","")

Set fl=fs.CreateTextFile(Server.MapPath(path&ntime&".xls"),true)
	fl.Write RsData
	set fs=nothing
	xlsName=path&ntime&".xls"
end sub

conn.close
set conn=nothing
%>

<form method="Post" action="?act=Search">
Name:<input type="text" Name="Sname"><BR>
Datee:<input type="text" Name="Datee">这想你这里应该想输入日期<BR>
<input type="submit" value="提交">
</form>

<%
'新开窗口显示生成的xls  我只是简单的用window.open打开的，你可以用其他方式打开。
if xlsName<>"" then
	xlsName=replace(xlsName,"/","//")
	response.write "<script>"
	response.write "window.open("""&xlsName&""");"
	response.write "</script>"
end if
%>

Top

回复人： surferc((大妹子，缘分啊！)) ( 四级(中级)

) 信誉：100

2005-01-08 17:30:00

得分: 0

Top

name="XmlReply" marginwidth="0" marginheight="0" src=" /Expert/xsl/Reply_Xml.asp?Topicid=3709370" frameborder="0" width="750" scrolling="no" height="300">


	管理 \| 关闭窗口

网站简介 - 广告服务 - 网站地图 - 帮助信息 - 联系方式
百联美达美公司版权所有京ICP证020026号
Copyright © CSDN.net, Inc. All rights reserved

border="0" src="http://universalmccannafa.allyes.com/main/adfshow?user=universalmccann|csdn|Homepage_Fullcolum_770_90_net&db=universalmccannafa&border=0&local=yes&js=ie" width="0" height="0">

name="google_ads_frame" marginwidth="0" marginheight="0" src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-1076724771190722&dt=1129116357390&format=728x90_as&output=html&channel=2163438289&url=http%3A%2F%2Fblog.csdn.net%2Ffckeditor%2Feditor%2Ffckeditor.html%3FInstanceName%3DEditor_Edit_FCKEditor%26Toolbar%3DDefault&color_bg=FFFFFF&color_text=000000&color_link=0000FF&color_url=008000&color_border=336699&loc=http%3A%2F%2Fblog.csdn.net%2Ffckeditor%2Feditor%2Ffckeditor.html%3FInstanceName%3DEditor_Edit_FCKEditor%26Toolbar%3DDefault&u_h=768&u_w=1024&u_ah=740&u_aw=1024&u_cd=32&u_tz=480&u_his=4&u_java=true" frameborder="0" width="728" scrolling="no" height="90" allowtransparency="65535">

标签

#存储 #google #search #asp #excel