<%
Rem Author: Francis
Rem Date : 2005.3.11
Rem Intro : 本文件的通用性在于可以实现“修改双条字段(记录关键字、添加时间)”，包括字段的实体完整性和参照完整性约束
Rem:***********注意，本文件不可单独使用***************
Rem:key_id,key_id_name,key_name,key_name_chinese,TAB_Name,add_time,error_mess,sqlstr_relation,the_back_page这些变量在外部定义
Rem:分别是表自定义程序增长的ID号key_id，该ID号名称key_id_name，表内关键字key_name，关键字中文key_name_chinese，表名TAB_Name，add_time记录添加时间，级联修改查询语句sqlstr_relation，错误提示信息error_mess，上一页the_back_page
Rem:外部文件示例：
'dim key_id,key_id_name,key_name,key_name_chinese,TAB_Name,add_time,error_mess,sqlstr_relation,the_back_page
'key_id_name="s_id"
'key_name="school_name"
'key_name_chinese="学校"
'TAB_Name="T_school"
'the_back_page="List_school.asp"
'sqlstr_relation="update T_user set school='" & request.form(key_name) & "' where school='"&request.form(key_name&"_old")&"'"
if request(key_id_name)<>"" then
key_id=request(key_id_name)
end if
if request("alterform")<>"" then
call check_value_s_edit(TAB_Name,key_name,request.form(key_name),key_id_name,key_id,key_name_chinese)
Rem 验证修改的值是否已经存在，存在则操作不被允许
Rem 内部执行查询语句select id from TAB_Name where key_name=... and key_id_name<>key_id
call check_time_stye("","") '两个参数分别声明为：request_name（缺省为："add_time"）,the_mess（缺省为："add_time"）；实现对输入字符进行日期格式验证
if error_mess<>"" then
response.Redirect("../usefile/add_error.asp?error_mess="&error_mess&"&page="&request("page"))
end if
application.lock
sqlstr="update "&TAB_Name&" set "&key_name&"='" & request.form(key_name) & "',add_time='"& add_time & "' where "&key_id_name&"=" & key_id
'response.write sqlstr &" "
conn.execute(sqlstr)
'response.write sqlstr_relation &" "
conn.execute(sqlstr_relation)
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
application.unlock
response.Redirect(the_back_page&"?"&request.servervariables("QUERY_STRING"))
end if
%>