📄 show.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能:员工信息--查看
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-12
'修改人员：房鹏
'修改时间：2003-8-13
'修改目的：设置权限
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_projects/Cls_wh_projects.asp" -->
<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../pub/fun.asp" -->
<%call checklogin()%>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="WindSoft Programmer3">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=gb2312">
<TITLE>wh_projects--查看</TITLE>
<%
dim mStr_WINDCallType
mStr_WINDCallType = trim(request.querystring("WINDCallType")) '调用方式
dim mStr_WINDURL '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)
'以下为全局变量定义
dim mStr_PK_project_id '主鍵
call InitData()
%>
</HEAD>
<BODY>
<TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD>
<FONT CLASS="locationhead">您的位置：</FONT>
<A CLASS="locationdata" HREF="Main.asp?<% =mStr_WINDURL%>">项目信息</A>>>
<A CLASS="locationlastdata" HREF="javascript:window.location.reload()">查看</A>
</TD>
</TR>
</TABLE>
<BR>
<%
call ShowData_wh_projects() '显示wh_projects
%>
<TABLE BORDER="0" WIDTH="90%">
<TR>
<TD ALIGN="LEFT">
<A HREF="javascript:window.history.back()">返回</A>
</TD>
<TD ALIGN="RIGHT">
<%if session("right")>2 then%>
<A HREF="Update.asp?<% =mStr_WINDURL%>">新增</A>
<A HREF="Update.asp?<% =mStr_WINDURL%>&PK_project_id=<% Response.write mStr_PK_project_id%>">修改</A>
<A HREF="javascript:DeleteData()">删除</A>
<%end if%>
<A HREF="javascript:WindowPrint()">打印</A>
<A HREF="Search.asp?<% =mStr_WINDURL%>">查询</A>
</TD>
</TR>
</TABLE>
<DIV STYLE="DISPLAY:NONE">
</DIV>
</BODY>
</HTML>
<%
function InitData()
mStr_PK_project_id = trim(request.querystring("PK_project_id"))
end function
function ShowData_wh_projects()
dim Str_project_id 'project_id
dim Str_project_name '项目名称
dim Str_project_begin '签定合同日期
dim Str_project_end '规定完成合同日期
dim Str_project_finish '实际合同完成合同日期
dim Str_project_score '验收评分
dim Str_project_sum '合同总金额
dim Str_project_firstpay '首期付款金额
dim Str_project_lastpay '后期付款金额
dim Str_project_notpay '未付款
dim Str_project_cost '前期成本费用
dim Str_project_operation '前期业务费用
dim Str_project_codes '前期非南京公司开发程序费
dim Str_project_host '前期主机费用
dim Str_project_dns '前期域名费用
dim Str_project_search '前期搜索引擎费用
dim Str_project_mail '前期邮箱费用
dim Str_project_other '前期其它费用
dim Str_project_cost2 '后期成本费用
dim Str_project_operation2 '后期业务费用
dim Str_project_codes2 '后期非南京公司开发程序费
dim Str_project_host2 '后期主机费用
dim Str_project_dns2 '后期域名费用
dim Str_project_search2 '后期搜索引擎费用
dim Str_project_mail2 '后期邮箱费用
dim Str_project_other2 '后期其它费用
dim Str_project_memo '备注
dim Rec_Data '结果集
if (mStr_PK_project_id<>"") then
set Rec_Data = mCls_wh_projects.GetData(mStr_PK_project_id)
if (not Rec_Data.eof) then
Str_project_id = Server.HTMLEncode(trim(Rec_Data.fields("project_id") & ""))
Str_project_name = Server.HTMLEncode(trim(Rec_Data.fields("project_name") & ""))
Str_project_begin = Server.HTMLEncode(trim(Rec_Data.fields("project_begin") & ""))
Str_project_end = Server.HTMLEncode(trim(Rec_Data.fields("project_end") & ""))
Str_project_finish = Server.HTMLEncode(trim(Rec_Data.fields("project_finish") & ""))
Str_project_score = Server.HTMLEncode(trim(Rec_Data.fields("project_score") & ""))
Str_project_sum = Server.HTMLEncode(trim(Rec_Data.fields("project_sum") & ""))
Str_project_firstpay = Server.HTMLEncode(trim(Rec_Data.fields("project_firstpay") & ""))
Str_project_lastpay = Server.HTMLEncode(trim(Rec_Data.fields("project_lastpay") & ""))
Str_project_notpay = Server.HTMLEncode(trim(Rec_Data.fields("project_notpay") & ""))
Str_project_cost = Server.HTMLEncode(trim(Rec_Data.fields("project_cost") & ""))
Str_project_operation = Server.HTMLEncode(trim(Rec_Data.fields("project_operation") & ""))
Str_project_codes = Server.HTMLEncode(trim(Rec_Data.fields("project_codes") & ""))
Str_project_host = Server.HTMLEncode(trim(Rec_Data.fields("project_host") & ""))
Str_project_dns = Server.HTMLEncode(trim(Rec_Data.fields("project_dns") & ""))
Str_project_search = Server.HTMLEncode(trim(Rec_Data.fields("project_search") & ""))
Str_project_mail = Server.HTMLEncode(trim(Rec_Data.fields("project_mail") & ""))
Str_project_other = Server.HTMLEncode(trim(Rec_Data.fields("project_other") & ""))
Str_project_cost2 = Server.HTMLEncode(trim(Rec_Data.fields("project_cost2") & ""))
Str_project_operation2 = Server.HTMLEncode(trim(Rec_Data.fields("project_operation2") & ""))
Str_project_codes2 = Server.HTMLEncode(trim(Rec_Data.fields("project_codes2") & ""))
Str_project_host2 = Server.HTMLEncode(trim(Rec_Data.fields("project_host2") & ""))
Str_project_dns2 = Server.HTMLEncode(trim(Rec_Data.fields("project_dns2") & ""))
Str_project_search2 = Server.HTMLEncode(trim(Rec_Data.fields("project_search2") & ""))
Str_project_mail2 = Server.HTMLEncode(trim(Rec_Data.fields("project_mail2") & ""))
Str_project_other2 = Server.HTMLEncode(trim(Rec_Data.fields("project_other2") & ""))
Str_project_memo = Server.HTMLEncode(trim(Rec_Data.fields("project_memo") & ""))
Str_project_memo = replace(Str_project_memo,vbCrlf,"<BR> ")
'显示
%>
<!-- #include file="../wh_projects/ShowOne_wh_projects.asp" -->
<%
end if
Rec_Data.Close
end if
if (mStr_PK_project_id="") then
call ShowMess(16,"找不到相应的 [wh_projects]!")
call WindowBack()
end if
end function
%>
<SCRIPT LANGUAGE="javascript">
<!--********************************************************************************-->
function DeleteData(){
var w_date=new Date()
if (window.confirm("要删除所选定的 [wh_projects]吗？")){
window.location="Delete.asp?<% =mStr_WINDURL%>&time="+w_date.getTime()+"&PK_project_id='<% Response.write mStr_PK_project_id%>'"
}
}
<!--********************************************************************************-->
</SCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -