📄 tabledetail_post.asp
字号:
<%'--------------------------------------------------------------------------
' Project: AMBER-SOFT网络办公系统
' Module : 联系人
' By: imafar
' Discription: 列出谋联系人所有资料活动
'--------------------------------------------------------------------------%>
<%if session("userid")="" then
response.write "<SCRIPT LANGUAGE='JavaScript'>"&chr(13)
response.write "<!--"&chr(13)
response.write "parent.location.href=""/error/error.htm"""&chr(13)&chr(13)
response.write "//-->"&chr(13)
response.write "</SCRIPT>"&chr(13)
end if
%>
<!--#include virtual="/_inc/GeneralADO.asp"-->
<html>
<head>
<title>联系人信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="<%=session("css")%>/person.css" type="text/css">
</head>
<body bgcolor="#F5F4F1" leftmargin="0" topmargin="0" >
<%
function fnGetFieldType(Value)
select case value
case 20
fnGetDataTypeConstant="BigInt"
case 11
fnGetDataTypeConstant="Boolean"
case 14
fnGetDataTypeConstant="Decimal"
case 5
fnGetDataTypeConstant="Double"
case 0
fnGetDataTypeConstant="Empty"
case 10
fnGetDataTypeConstant="Error"
case 72
fnGetDataTypeConstant="GUID"
case 3
fnGetDataTypeConstant="Integer"
case 131
fnGetDataTypeConstant="Numeric"
case 4
fnGetDataTypeConstant="Single"
case 2
fnGetDataTypeConstant="SmallInt"
case 16
fnGetDataTypeConstant="TinyInt"
case 21
fnGetDataTypeConstant="UnsignedBigInt"
case 19
fnGetDataTypeConstant="UnsignedInt"
case 18
fnGetDataTypeConstant="UnsignedSmallInt"
case 17
fnGetDataTypeConstant="UnsignedTinyInt"
case 139
fnGetDataTypeConstant="VarNumeric"
end select
end function
dim table_sum_str
object_id=request.form("object_id")
table_id=request.form("table_id")
table_name=trim(request.form("table_name"))
'if table_id="" then table_id=0
'response.write "1-"&object_id
'oRS.open "select name from sysobjects where id="&object_id,oCon
'if not oRS.eof then
' table_name=oRS("name")
'else
' response.write "出错了，数据库里没有这个表！"
' response.end
'end if
'oRS.close
set oRS1=server.createobject("adodb.recordset")
oRS1.open "select * from fn_table where id="&table_id,oCon,1,3
if oRS1.eof then
oRS1.addnew
end if
oRS1("table_name") = table_caption
oRS1("table_view") = table_name
oRS1("table_sql_select") = table_sql_select
oRS1("table_sql_where") = table_sql_where
oRS1.update
table_id=oRS1("id")
oRS1.close
oRS.open "select top 1 * from ["&table_name&"]",oCon,1,3
for each obj in oRS.fields
if request.form("disp_" & obj.name) = "1" then
oRS1.open "select * from fn_table_col where field_str='" & obj.name & "' and table_id="&table_id,oCon,2,3
if oRS1.eof then
oRS1.addnew
end if
oRS1("table_id") = table_id
oRS1("field_str") = obj.name
oRS1("field_name") = request.form("DISP_CAPTION_" & obj.name)
oRS1("filter_display") = request.form("SEARCH_" & obj.name)
oRS1("filter_type_id") = request.form("filter_type_id_" & obj.name)
if request.form("SORT_" & obj.name)=1 then
oRS1("sum_str") = request.form("sum_str")
oRS1("sort_type") = 1
end if
'------------- 区分数字字符 --------------
oRS1("field_type") = 1
oRS1("otbl_field_string") = request.form("FIELD_STRING_" & obj.name)
oRS1("otbl_col_style") = request.form("FIELD_STYLE_" & obj.name)
oRS1("stat_caption") = request.form("STAT_CAPTION_" & obj.name)
oRS1("search_col") = request.form("SEARCH_" & obj.name)
oRS1.update
if request.form("STATISTIC_" & obj.name) <> "0" then
if table_sum_str="" then
table_sum_str = oRS1("id")
else
table_sum_str = table_sum_str & "," & oRS1("id")
end if
end if
oRS1.close
end if
next
oRS1.open "select * from fn_table where id="&table_id,oCon
if oRS1.eof then
oRS1.addnew
end if
oRS1("table_name") = table_caption
oRS1("table_view") = table_name
if table_sql_select="" then
table_sql_select = "select * from [" & table_name & "]"
end if
oRS1("table_sql_select") = table_sql_select
oRS1("table_sql_where") = table_sql_where
oRS1("table_sum_field_str") = table_sum_str
oRS1("creator_id") = session("userid")
oRS1("create_time") = now
oRS1.update
oRS1.close
%>
<%
oRS.close
%>
</FORM>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -