大家帮我估估价,看我该要多少钱合适呢?我是专科,下面是我一个小时写的一段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等技术都比较熟悉!!找工作!!
...全文
7 点赞 收藏 57
写回复
57 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
刚毕业,还可以了
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告