<P><%
if request.form("Modf") <> "" then
Dim rs
Dim sql
Dim BugID
dim today
today=date()
toyear=year(today)
toyear=toyear*10000
tomonth= month(today)
tomonth=tomonth*100
tonow=day(today)
Serialnum = toyear + tomonth + tonow
Serialnum = Serialnum*10000+1
<P>set rs = Server.CreateObject("ADODB.recordset")
sql = "select top 1 * from buglist order by SubmitDate desc"
rs.open sql,conn,1,3
if not rs.eof then
Dim OldSerialnum
OldSerialnum = Rs("BugID")
OldSerialnum = right(OldSerialnum,12)
Serial = right(Serialnum,12)
if OldSerialnum - Serial >= 0 then
Serialnum = OldSerialnum + 1
end if
end if
BugID = "ES"&request("ProductVersion")&Serialnum
<P>34. 呼应回车
<P>function getdata(what,whatid)
{
if (event.keyCode==13)
……
<input name="SerialNum<%=i%>" type="text" >
35. 封闭窗口前刷新父页面
response.write "<script language = javascript>"
response.write "javascript:opener.location.reload(); "
response.write "javasript:window.close();</script>"