softconfig.asp

没有什么

<%
Response.buffer=false
%>
<!--#include file="Const.Asp"-->
<%CheckAdmin1%>
<%PageName="Class"%>

<%
ver=trim(request.form("ver"))
verurl=trim(request.form("verurl"))
if len(verurl)>10 and ver<>""   then
	set rs=server.createobject("adodb.recordset")
	sql = "SELECT * FROM config where id=1" 
	rs.Open sql,conn,1,3
	if not rs.eof then
		rs("ver")=ver
		rs("verurl")=verurl
		rs.update
	end if
	rs.close
	set rs=nothing
else
	set rs=server.createobject("adodb.recordset")
	sql = "SELECT * FROM config where id=1" 
	rs.Open sql,conn,1,1
	if not rs.eof then
		ver=rs("ver")
		verurl=rs("verurl")
	end if
	rs.close
	set rs=nothing
end if


%>
<script language=VBScript>

Function bytes2BSTR(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
        ThisCharCode = AscB(MidB(vIn,i,1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(vIn,i+1,1))
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
            i = i + 1
        End If
    Next
    bytes2BSTR = strReturn
End Function

</script>
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">

<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
	<form method="POST" action="softconfig.asp">

  <tr class="title"> 
    <td height="22" colspan="3" align="center"><strong>软 件 升 级 设 置</strong></td>
  </tr>
  <tr class="tdbg"> 
    <td width="14%" height="30"><b>当前软件版本号：</b></td>
    <td width="83%"><input type="text" class=input name="ver" size="13" value="<%=ver%>"></td>
    <td width="2%">　</td>
  </tr>

  <tr class="tdbg"> 
    <td width="14%" height="30"><b>升级程序地址：</b></td>
    <td width="83%"><input type="text" class=input name="verurl" size="58" value="<%=verurl%>"></td>
    <td width="2%">　</td>
  </tr>
  <tr class="tdbg"> 
    <td width="14%" height="30">　</td>
    <td width="83%"><input type="submit" value="保 存" name="safe" class=input>&nbsp;&nbsp;
</td>
    <td width="2%"></td>
  </tr>
</table>
<br>
<script >
function updateok()
{
window.location="?";

}
</script>
</body></html>