自动生成调用地址

<table cellpadding="3" cellspacing="1" border="0" align="center">
<form METHOD=POST ACTION="?Act=SaveEditSetting" name="TheForm">
<tr>
<td width="30%" class="forumrowHighlight" align="right">
调用标识名称：</td>
<td width="85%" class="forumrow">
<INPUT TYPE="text" NAME="NewsName" size="10" Maxlength="10" onKeyUp="OutputNewsCode(this.value);" value="show1">(请使用英文或数字设定调用名称)</td>
</tr>
<tr>
<td width="30%" class="forumrowHighlight" align="right">
调用代码：</td>
<td width="85%" class="forumrow">
<INPUT TYPE="text" NAME="Newscode" size="70" disabled value="<script src="Dv_News.asp?GetName=show1"></script>"></td>
</tr>
</form>
</table>

<SCRIPT LANGUAGE="JavaScript">
<!--

function OutputNewsCode(Val){
	var obj = TheForm.Newscode;
	if (obj){
		if (Val!=''){
			obj.value = "<scr"+"ipt src=\"Dv_News.asp?GetName="+Val.toLowerCase()+"\"><\/scr"+"ipt>";
		}else{
			obj.value = "";
		}
	}
}//-->
</SCRIPT>