大家帮我估估价，看我该要多少钱合适呢？我是专科，下面是我一个小时写的一段ASP程序！！

3108 2004-04-02 06:27:36
<%
'##############################################################
'#### created by 3108 2004.3.31 corp. abcd
'#### 程序需要ORACLE客户端支持，需要
'#### IIS支持FSO，并且用到了绝对路径。
'##############################################################
%>
<%
Set OraSession=server.CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.OpenDatabase("Ora817","admin/admin",Cint(0))
%>

<%
user="user_xj"
'本段代码是通过USERID，取U INFORMATION表中的auto_id
sql="select * from u_information where userid="&"'"&user&"'"
Set OraDynaset=OraDatabase.DbCreateDynaset(sql,cint(0))
While not OraDynaset.EOF
auto_id= OraDynaset.fields("auto_id").value
OraDynaset.MoveNext
wend
set OraDynaset=nothing
'取auto_id结束
%>

<%
'本段代码是通过auto_ID，取F_B520表中的CODE法人码
sql="select * from f_b520 where uinfo_id="&"'"&auto_id&"'"
Set OraDynaset=OraDatabase.DbCreateDynaset(sql,cint(0))
While not OraDynaset.EOF
code= OraDynaset.fields("code").value
OraDynaset.MoveNext
wend
set OraDynaset=nothing
'取CODE法人码结束
%>



<%

if request("keyword1")="keyword" then

year1=request("year")
month1=request("month")
checkbox=request("checkbox")
if checkbox="checkbox" then
title="EA"
else
title="EB"
end if
filename=title&code&year1&month1&".txt"
'开始生成文件名和内容



if title="EA" then
sql="select * from F_E201_1_1 where uinfo_id="&"'"&auto_id&"'"&"and ryear=200"&year1
Set OraDynaset=OraDatabase.DbCreateDynaset(sql,cint(0))

if OraDynaset.EOF then
response.write "当前报表没有填报，无法导出"&"<a href=output.asp>返回</a>"
response.end
end if
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("f:\"&filename, True)



While not OraDynaset.EOF
content=""""&code&""""
for i=1 to 8
if isnull(OraDynaset.fields("c"&i).value) then
content=content&","&"0"
else
content=content&","&OraDynaset.fields("c"&i).value
end if
next
tf.WriteLine(content)
OraDynaset.MoveNext
wend
set OraDynaset=nothing
end if



if title="EB" then
sql="select * from F_E203 where uinfo_id="&"'"&auto_id&"'"&"and ryear=200"&year1
Set OraDynaset=OraDatabase.DbCreateDynaset(sql,cint(0))

if OraDynaset.EOF then
response.write "当前报表没有填报，无法导出"&"<a href=output.asp>返回</a>"
response.end
end if
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("f:\"&filename, True)

content=""""&code&""""

While not OraDynaset.EOF
for i=2 to 3
if isnull(OraDynaset.fields("c"&i).value) then
content=content&","&"0"
else
content=content&","&OraDynaset.fields("c"&i).value
end if
next
OraDynaset.MoveNext
wend
set OraDynaset=nothing
tf.WriteLine(content)

end if

tf.Close
response.write "数据导出成功！"&"<a href=output.asp>返回</a>"
response.end
end if
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据导出程序</title>
<style type=text/css>
A:link {font-size: 9pt ; color:#0099ff; font-style: normal; text-decoration: none; cursor: hand; font-family:tahoma,verdana,helvetica,helvetica;}
A:visited {font-size: 9pt ; color:#0099ff; font-style: normal; text-decoration: none; font-family:tahoma,verdana,helvetica,helvetica;}
A:active {font-size: 9pt ; font-style: normal; text-decoration: none; font-family:tahoma,verdana,helvetica,helvetica;}
A:hover {font-size: 9pt ; color:#000000; font-style:bold; text-decoration: none; font-family:tahoma,verdana,helvetica,helvetica;}
.top{font-size: 9pt ; color:#000000; font-style: normal; text-decoration: none; font-family:tahoma,verdana,helvetica,helvetica;}
body{ font-family:tahoma,verdana,arial,helvetica; font-size: 9pt }
td{color:#000000; font-size:9pt}
.button1 {
BACKGROUND-COLOR: #eff5ee;
BORDER-BOTTOM: #000000 1px solid;
BORDER-LEFT: #000000 1px solid;
BORDER-RIGHT: #000000 1px solid;
BORDER-TOP: #000000 1px solid;
FONT-SIZE: 9pt;
width:85;
height:17;
}
</style>
<SCRIPT LANGUAGE=javascript>
<!--

function ConfirmDelete()
{

if (form0.checkbox.checked==false && form0.checkbox1.checked==false) {
alert("请选择要导出的表！");
return false; }


if (confirm("您确认要导出吗？"))
{return true;}
else
{return false;}
}
//-->
</SCRIPT>

</head>
<body>
<table width="776" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bordercolordark=#ffffff borderlightcolor=#ffffff >

<form action="output.asp" method="get" name="form0" onSubmit="return ConfirmDelete()">
<tr align="center">

<td bgcolor="d7deea" >请选择年：
<SELECT name=year style="BACKGROUND-COLOR: #eff5ee;
BORDER-BOTTOM: #000000 1px solid;
BORDER-LEFT: #000000 1px solid;
BORDER-RIGHT: #000000 1px solid;
BORDER-TOP: #000000 1px solid;
FONT-SIZE: 9pt;

height:17;">

<%for i=1 to 9%>
<option value="<%=i%>">200<%response.write i%></option>
<%next%>
</SELECT>

      请选择月：
<SELECT name=month style="BACKGROUND-COLOR: #eff5ee;
BORDER-BOTTOM: #000000 1px solid;
BORDER-LEFT: #000000 1px solid;
BORDER-RIGHT: #000000 1px solid;
BORDER-TOP: #000000 1px solid;
FONT-SIZE: 9pt;

height:17;">

<%for i=1 to 12%>
<%if i<10 then%>
<option value="0<%=i%>"><%response.write i%></option>
<%else%>
<option value="<%=i%>"><%response.write i%></option>
<%end if%>
<%next%>
</SELECT>
</td>
</tr>
<tr align="center" >
<td bgcolor="d7deea" >请选择操作的报表： <input type="checkbox" name="checkbox" value="checkbox">
<font color="red"> F_E201_1_1</font> 限额以上批发零售贸易业商品销售总值及类值 </td>
</tr>

<tr align="center" >


<td bgcolor="d7deea" >        <input type="checkbox" name="checkbox1" value="checkbox1">
<font color="red">F_E203</font> 重点批发零售贸易企业主要经济指标</td>
</tr>
<tr align="center" >


<td bgcolor="d7deea" > <input type="submit" name="Submit" value="数据导出" class="button1" >
</td>
</tr>
<input type="hidden" value="keyword" name="keyWord1">
</form>
</table>

<%
dim folder,file,obj
set obj=server.CreateObject("Scripting.FileSystemObject")
set folder=obj.GetFolder("f:")'此处用到了绝对路径
for each file in folder.files
if lcase(left(file.name,1))="e" and lcase(right(file.name,3))="txt" then%>

<table width="776" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bordercolordark=#ffffff borderlightcolor=#ffffff bgcolor="d7deea">
<tr align="center" >
<td width="776" height="11"><a href="<%=file.name%>">
<%response.write file.name&"</a>"
response.write "  <a href=del.asp?filename="&file.name&">删除</a><br>"
%>
</td>

</tr>
</table>
<%
end if
next
%>

</body>
</html>
=======================================================================
本人对数据库技术，CSS，JAVASCRIPT等技术都比较熟悉！！找工作！！
...全文
34 57 打赏 收藏 转发到动态 举报
写回复
用AI写文章
57 条回复
切换为时间正序
请发表友善的回复…
发表回复
N1rvana 2004-04-05
  • 打赏
  • 举报
 回复
我是楼主！

大家别那么没自信啊，虽然我是专科，但我在北京找工作，都是试用4000以下免谈的呢，呵呵
=============================================================================

就这一点，尊敬楼主一下先，祝楼主好运。
别人的看法和言论不具有太大参考价值，不用太在意，毕竟大家不了解你的水平：）
相信你自己就行了，重要的是不要停止步伐。

如果可能的话，给出一个完整的系统大家看看，也许大家的评价能全面很多
dayanmao 2004-04-05
  • 打赏
  • 举报
 回复
4k以下免谈，你小子牛得可以啊
huhan3 2004-04-05
  • 打赏
  • 举报
 回复
我是楼主！

大家别那么没自信啊，虽然我是专科，但我在北京找工作，都是试用4000以下免谈的呢，呵呵
=============================================================================
你狠。我本科，精通asp,.net,大连--2000。
帮我介绍工作吧，兄弟现在赋闲在家。
lions911 2004-04-05
  • 打赏
  • 举报
 回复
我是楼主！

大家别那么没自信啊，虽然我是专科，但我在北京找工作，都是试用4000以下免谈的呢，呵呵
=============================================================================
我靠，小子你牛，有志气！搞ASP的都象你也不会今天这么个身价了！！
3108 2004-04-05
  • 打赏
  • 举报
 回复
我是楼主！

大家别那么没自信啊，虽然我是专科，但我在北京找工作，都是试用4000以下免谈的呢，呵呵
pansmonkey 2004-04-05
  • 打赏
  • 举报
 回复
到我们这来也就800
angel2a 2004-04-05
  • 打赏
  • 举报
 回复
钳工
iloveyaner 2004-04-05
  • 打赏
  • 举报
 回复
呵呵。自己水平多少就要多少水平的钱。。目前俺就2k多点：（
水平慢慢增高，在多赚点
zhouguoyao 2004-04-05
  • 打赏
  • 举报
 回复
能够写代码那你就只是最简单的代码工人！
需要的应该是你对技术的合理使用，或说是经验！

3108 2004-04-05
  • 打赏
  • 举报
 回复
我们这儿不论大专,小专,本科,研究生,还是小学生,试用期统一价:500

想来就来,不想来就走.很自由的社会.
=============================================================================
您别不论研究生了，请问您那里有一个500块的研究生吗？

估计假文凭的研究生都不会去您那里吧，呵呵


tddw 2004-04-05
  • 打赏
  • 举报
 回复
呵呵！一定！一定！
是是非非 2004-04-05
  • 打赏
  • 举报
 回复
还可以，深圳这里3K左右
hongmaohouzi 2004-04-05
  • 打赏
  • 举报
 回复
支持，向你学习！
99percent 2004-04-05
  • 打赏
  • 举报
 回复
老板:我没有水平看得明,只能出到800试用期三个月

证书只是一张没有用的家伙,
我们这儿不论大专,小专,本科,研究生,还是小学生,试用期统一价:500,
有工作经验的,试用一个月,没有的,试用三个月.

想来就来,不想来就走.
很自由的社会.

Primer2002cn 2004-04-05
  • 打赏
  • 举报
 回复
呵呵，你的命名规则我看了就不顺眼
3108 2004-04-05
  • 打赏
  • 举报
 回复
呵呵，
这个程序如果卖给我。
我出五块
===========================================================================
成交，哥们卖给你了，替我捐给希望工程，不要说话不算哦，呵呵
tddw 2004-04-05
  • 打赏
  • 举报
 回复
呵呵，
这个程序如果卖给我。
我出五块
2599 2004-04-05
  • 打赏
  • 举报
 回复
经验
seaonce 2004-04-05
  • 打赏
  • 举报
 回复
向高手学习
qzriso 2004-04-05
  • 打赏
  • 举报
 回复
刚毕业，还可以了
加载更多回复（37）
开发一个APP要多少钱？
开发一个APP需要多少钱 开发一个app需要多少钱？ APP商城开发多少钱？ 客户： “哎，你好，我想开发一款工资讯类的APP，要多少费用呀？” 客服： “先生，您好，这里是济南定制软件开发有限公司，您开始这款产品的...
[APP资讯] 开发一个App要多少钱？有免费开发App的网站吗？
试想，如果你是装潢公司老板，被问及：“装修一个房子要多少钱？”，你会怎么回答？所以，当我被人问及：“开发一个App要多少钱？”时，我的感觉跟你一样一样的。 拿出制作PPT的预算外包开发App 在客户的脑海...
招标文件提供的材料暂估价是否记取总承包服务费？
 专业工程暂估同材料暂估一样，无论是房地产商工程还是政府工程，发包方一定早已选中了队伍，这时的施工方实际上就成为了总包角色，除暂估价操作的程序外，收取总包服务费是施工方的权利，但最好别超过5%。...
打印复印店复印100张资料需要多少钱
易桌面打印室就是一个网上在线打印平台，平台可24小时自助提交打印文件，系统自动估价，大家可以实时了解到打印资料的价格。在易桌面打印室支持使用A3、A4、A5幅面的纸张打印，打印时可以选择黑白彩色正面、反面打
野人参多少钱一斤？走进野人参高价格背后的秘密
野人参多少钱一斤？它现在可是找都找不到的宝贝，价格肯定也不是常人能消费的起的。 野人参顾名思义就是野外的人参，也就是纯野生的，这种人参的种子是由自然掉落发芽或者依靠鸟鸟兽风等自然传播的，任何一个环节都...
ASP

28,391

社区成员

357,059

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章