📄 inputgai.asp
字号:
infoluru.Source = "SELECT * FROM user_name WHERE ID = " + Replace(infoluru__MMColParam, "'", "''") + ""
infoluru.CursorType = 0
infoluru.CursorLocation = 2
infoluru.LockType = 1
infoluru.Open()
infoluru_numRows = 0
%>
<%
Dim jilu
Dim jilu_numRows
Set jilu = Server.CreateObject("ADODB.Recordset")
jilu.ActiveConnection = MM_conn_STRING
jilu.Source = "SELECT * FROM caozuojilu"
jilu.CursorType = 0
jilu.CursorLocation = 2
jilu.LockType = 1
jilu.Open()
jilu_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
.STYLE1 { color: #FF0000;
font-size: 25;
}
.STYLE2 {
color: #FF0000;
font-weight: bold;
font-size: 14px;
}
.STYLE5 {color: #FF0000; font-weight: bold; font-size: 20px; }
-->
</style>
</head>
<body onload="MM_validateForm('name','','R','sfzh','','R');return document.MM_returnValue">
<!--#include file="top.asp" -->
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="46" background="images/p_left_2.gif"></td>
<td>
<%
'******************************
'函数：Userip()
'参数：无
'作者：阿里西西
'日期：2007/7/12
'描述：取得客户端IP地址
'示例：<%=Userip()
'******************************
Function Userip()
Dim GetClientIP
'如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法
GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then
'如果客户端没用代理，应该用Request.ServerVariables("REMOTE_ADDR")方法
GetClientIP = Request.ServerVariables("REMOTE_ADDR")
end if
Userip = GetClientIP
End function
%>
<script language="VBScript" type="text/vbscript">
<!--
function aa()
if form1.hukou.value="老隆农村户口" and form1.nianji.value >6 then
text3.innerText="中学老隆农村户口一费制是0元"
text4.innerText=83
text5.innerText=0
text6.innerText=200
text20.innerText=20
ElseIf form1.hukou.value="老隆城镇户口" and form1.nianji.value >6 Then
text3.innerText="中学老隆城镇户口一费制是0元"
text4.innerText=83
text5.innerText=0
text6.innerText=200
text20.innerText=20
ElseIf form1.hukou.value="非老隆农村户口" and form1.nianji.value >6 Then
text3.innerText="中学非老隆农村户口一费制(借读费)是445元"
text4.innerText=83
text5.innerText=445
text6.innerText=200
text20.innerText=20
ElseIf form1.hukou.value="非老隆城镇户口" and form1.nianji.value >6 Then
text3.innerText="中学非老隆城镇户口一费制(借读费)是445元"
text4.innerText=83
text5.innerText=556
text6.innerText=200
text20.innerText=20
ElseIf form1.hukou.value="外县户口" and form1.nianji.value >6 Then
text3.innerText="中学外县户口一费制(借读费)是556元"
text4.innerText=83
text5.innerText=556
text6.innerText=200
text20.innerText=20
ElseIf form1.hukou.value="老隆农村户口" and form1.nianji.value <7 then
text3.innerText="小学老隆农村户口一费制是0元"
text4.innerText=71
text5.innerText=0
text6.innerText=150
text20.innerText=15
ElseIf form1.hukou.value="老隆城镇户口" and form1.nianji.value <7 Then
text3.innerText="小学老隆城镇户口一费制是0元"
text4.innerText=71
text5.innerText=0
text6.innerText=150
text20.innerText=15
ElseIf form1.hukou.value="非老隆农村户口" and form1.nianji.value <7 Then
text3.innerText="小学非老隆农村户口一费制(借读费)是315元"
text4.innerText=71
text5.innerText=315
text6.innerText=150
text20.innerText=15
ElseIf form1.hukou.value="非老隆城镇户口" and form1.nianji.value <7 Then
text3.innerText="小学非老隆城镇户口一费制(借读费)是386元"
text4.innerText=71
text5.innerText=386
text6.innerText=150
text20.innerText=15
ElseIf form1.hukou.value="外县户口" and form1.nianji.value <7 Then
text3.innerText="小学外县户口一费制(借读费)是386元"
text4.innerText=71
text5.innerText=386
text6.innerText=150
text20.innerText=15
else
text3.innerText="没有正确选择"
text4.innerText=0
text5.innerText=0
end if
text10.innerText=form1.zhushufei.value
text21.innerText=form1.xueshengnai.value
text11.innerText=cint(text4.innerText)+cint(text4.innerText)
text7.innerText=cint(text10.innerText)+cint(text11.innerText)+cint(text5.innerText)+cint(text6.innerText)+cint(text20.innerText)+cint(text21.innerText)+6
form1.yifeizhi.value=cint(text5.innerText)
form1.zaocanfei.value=cint(text6.innerText)
form1.xiaofufei.value=cint(text11.innerText)
form1.zuoyefei.value=cint(text20.innerText)
form1.heji.value=cint(text7.innerText)
form1.classyi.value=form1.nianji.value&form1.ban.value
form1.classer.value=form1.nianji.value&form1.ban.value
form1.chusheng.value=mid(form1.sfzh.value,7,8)
form1.xuejihao.value=form1.sfzh.value
form1.hukoudizhi.value=form1.jiatingzhuzhi.value
form1.hukouhecha.value=form1.hukou.value
End function
-->
</script>
</script>
<script LANGUAGE="vbscript">
<!--
Sub form1_onsubmit() //** 这里是关键，当form1在提交的过程中时，激活form2的提交
form2.submit() //** 所以我们这里用了两个表单，但只需点击一次提交就可以了。
End Sub
-->
</script>
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1" id="form1" onsubmit="return checkform();MM_validateForm('Name','','R','Birthday','','R','zhuanhao','','R');return document.MM_returnValue">
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td align="center" height="8" background="images/bt-001.gif"><p align="center"><span class="STYLE1"><strong><%=(infoluru.Fields.Item("name").Value)%>信息修改</strong><strong> </strong></span></p></td>
</tr>
<tr>
<td height="227" align="center"><table width="658" height="308" border="0" cellpadding="0" cellspacing="2">
<tr>
<td><p> </p>
<p style="margin-top: 0; margin-bottom: 0">
<font size="2"> 原读学校： </font>
<input name="原读学校" class="rec_form" id="原读学校" value="<%=(infoluru.Fields.Item("原读学校").Value)%>" size="20" maxlength="20" onchange="aa()" />
<font size="2">
申请就读年级： </font><font size="2">
<select name="nianji" id="nianji" onchange="aa()">
<option value="<%=left((infoluru.Fields.Item("class").Value),1)%>"selected="selected"><%=left((infoluru.Fields.Item("class").Value),1)%>年级</option>
<option value="1" >一年级</option>
<option value="2" >二年级</option>
<option value="3" >三年级</option>
<option value="4" >四年级</option>
<option value="5" >五年级</option>
<option value="6" >六年级</option>
<option value="7" >七年级</option>
<option value="8" >八年级</option>
<option value="9" >九年级</option>
</select>
编入班 </font><font size="2">
<select name="ban" id="ban" onchange="aa()" >
<option value="<%=right((infoluru.Fields.Item("class").Value),2)%>" selected="selected"><%=right((infoluru.Fields.Item("class").Value),2)%>班</option>
<option value="01">1班</option>
<option value="02">2班</option>
<option value="03">3班</option>
<option value="04">4班</option>
<option value="05">5班</option>
<option value="06">6班</option>
<option value="07">7班</option>
<option value="08">8班</option>
<option value="09">9班</option>
<option value="10">10班</option>
<option value="11">11班</option>
<option value="12">12班</option>
<option value="13">13班</option>
<option value="14">14班</option>
<option value="15">15班</option>
<option value="16">16班</option>
</select>
</font> </p>
<div align="center">
<table width="608" border="0" bordercolor="#006600" height="80" cellpadding="0" style="border-collapse: collapse">
<tr>
<td valign="top" height="40"><table border="1" width="100%" id="table2" bordercolor="#009900" height="40" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td width="29" bordercolor="#009900" height="40" align="center">
<font size="2">姓名 </font> </td>
<td width="92" bordercolor="#009900" height="40" align="center"><p align="left">
<input name="name" class="rec_form" id="name" onkeyup="text8.innerText=this.value" value="<%=(infoluru.Fields.Item("name").Value)%>" size="12" maxlength="10" onchange="aa()"/>
<font size="2"> </font>
</p></td>
<td width="31" bordercolor="#009900" height="40" align="center"><p align="center">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -