旧玩家更换职业的网页及ASP程序

天云上人 · 发表于 2002-7-28 17:47:01

[B]旧玩家更换职业的网页及ASP程序[/B]
一、网页 ChangeWork.htm：
<html>
<head>
<title>旧玩家更改职业</title>
</head>
<style type="text/css">
.p9{font-size:9pt;color:black}
td{font-size:9pt;color:ffffff}
input,select {border-left: 1px solid Black; border-right: 1px solid Black;border-top: 1px solid Black;border-bottom: 1px solid Black;font-size: 9pt;color:Black;background:lavender;}
</style>
<script language="javaScript">
function check(){
ff=document.forms[0];
if(ff.Work.value==""){
alert("未选择职业");
ff.Sex.focus();
return false;
}
}
</script>
<body bgcolor=#ffffff>
<center>
<form method=POST action='ChangeWork.asp' onSubmit="return check()">
<table width=90% border=1 cellpadding=10 cellspacing=0 bordercolorlight=#5E9BF7 bordercolordark=#FFFFFF>
<tr bgcolor=007CD0>
  <td width=100%> <img src=/www/img/xg.gif> 旧玩家更改职业
<tr>
  <td class=p9>
你更改职业为：<select name=Work size=1>
<option value=采矿工>采矿工
<option value=采豆工>采豆工
<option value=猎人>猎人
<option value=采冰工>采冰工
<option value=采药工>采药工
<option value=伐木工>伐木工
<option value=药师>药师
<option value=法师>法师
<option value=铁匠>铁匠
<option value=巡捕>巡捕
<option value=小偷>小偷
</select>
<tr>
  <td class=p9>
　　说明：<br>
　　1、每种职业都有技术等级，如果你的技术等级达到了99级（峰值），那么你可以换职业，原职业系统给保留，当恢复旧职业时，技术等级仍然是99级，但当前职业技术等级将丢失。<br>
　　2、转换职业要到官府进行登记（小偷除外），当然还要交一定的费用了（站长定）。<br>
　　3、矿工（采矿石）、农民（种神豆）、猎人（打猎后可以得到肉干）、采冰工（采集玄冰）、采药工（采集药材）、伐木工（采伐木材）、药师（配药品、毒药、解药）、法师（制作道具、火器）、铁匠（打造各种兵器）、小偷（偷人钱财）、巡捕（专门捉拿小偷）
<tr bgcolor=007CD0>
  <td align=center>
<input type=submit value=确定>
<input type=reset value=取消>
<input type=button value="关闭" onclick="window.close();">
</table>
</form>
<p class=p9>天云阁工作室 (C) 1996-2002</p>
</body>
</html>

二、ASP程序 changework.asp：
<%
dim ID, Rnd, Work
ID = Request.Cookies("ID")
Rnd = Request.Cookies("Rnd")
Work = Request.form("Work")
if ID <> "" and Rnd <> "" then
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "你的数据库定义"
set rs = conn.execute("select C7,C17 from Y where id=" & ID)
if not rs.eof and not rs.bof then
  if rs("C7") = Rnd then
conn.execute "update Y set C17='" & Work & "',N9=0 where ID=" & ID
response.write "你选择职业成功！"
  else
response.write "你未登录！"
  end if
else
  response.write "帐号不存在！"
end if
set rs = nothing
conn.close
set conn = nothing
else
  response.write "你未登录，或你的 IE 不支持。"
end if
%>

天云上人 · 发表于 2002-7-29 01:49:04

根据这个程序，大家可以自行设计（增加）其他功能

		自动登录	找回密码
密码			注册

旧玩家更换职业的网页及ASP程序

浏览过的版块